AdditionalOutput_Model Subroutine

  1. SELF_Model.f90
  2. SELF_Model
  3. AdditionalOutput_Model

public subroutine AdditionalOutput_Model(this, fileid)

Arguments

TypeIntentOptionalAttributesName
class(Model), intent(inout) :: this
integer(kind=HID_T), intent(in) :: fileid

Contents

Source Code

AdditionalOutput_Model

Source Code

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