my_init2 Subroutine

public subroutine my_init2(gcomp, importState, exportState, externalclock, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: gcomp
type(ESMF_State) :: importState
type(ESMF_State) :: exportState
type(ESMF_Clock) :: externalclock
integer, intent(out) :: rc

Source Code

  subroutine my_init2(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
   
    ! Initialize return code
    rc = ESMF_SUCCESS

    print *, "User initialize 2 routine called"

    ! test returning a specific user return code      
    rc = 123456

  end subroutine my_init2