my_init2 Subroutine

  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