my_init Subroutine

    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
     

      call ESMF_LogWrite("User initialize routine called", ESMF_LOGMSG_INFO)
      rc = ESMF_SUCCESS

    end subroutine my_init