my_final1 Subroutine

public subroutine my_final1(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_final1(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 finalize 1 routine called"

  end subroutine my_final1