AdditionalInit_Model Subroutine

  1. SELF_Model.f90
  2. SELF_Model
  3. AdditionalInit_Model

public subroutine AdditionalInit_Model(this)

Arguments

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

Contents

Source Code

AdditionalInit_Model

Source Code

  subroutine AdditionalInit_Model(this)
    implicit none
    class(Model),intent(inout) :: this
    if(.false.) this%nvar = this%nvar ! Default implementation; suppress unused-dummy-argument warning
  endsubroutine AdditionalInit_Model