my_init Subroutine

public subroutine my_init(cpl, importStatelist, exportStatelist, externalclock, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CplComp) :: cpl
type(ESMF_State) :: importStatelist
type(ESMF_State) :: exportStatelist
type(ESMF_Clock) :: externalclock
integer, intent(out) :: rc

Source Code

    subroutine my_init(gcomp, importState, exportState, externalclock, rc)
      type(ESMF_GridComp) :: gcomp
      type(ESMF_State) :: importState
      type(ESMF_State) :: exportState
      type(ESMF_Clock) :: externalclock
      integer, intent(out) :: rc

      print *, "PHYS initialize routine called"
      rc = ESMF_SUCCESS

    end subroutine my_init