PrintType_Model Subroutine

  1. SELF_Model.f90
  2. SELF_Model
  3. PrintType_Model

public subroutine PrintType_Model(this)

Arguments

TypeIntentOptionalAttributesName
class(Model), intent(in) :: this

Contents

Source Code

PrintType_Model

Source Code

  subroutine PrintType_Model(this)
    implicit none
    class(Model),intent(in) :: this

    print*,__FILE__//" : Model : No model type"
    if(.false.) write(*,*) this%nvar ! suppress unused-dummy-argument warning

  endsubroutine PrintType_Model