set_up Subroutine

public subroutine set_up()

Arguments

None

Calls

proc~~set_up~2~~CallsGraph proc~set_up~2 set_up ESMF_CalendarSetDefault ESMF_CalendarSetDefault proc~set_up~2->ESMF_CalendarSetDefault

Source Code

   subroutine set_up()
      integer :: status

      call ESMF_CalendarSetDefault(CALKIND_FLAG_DEF, rc=status)
      if(status /= _SUCCESS) write(*, *) 'Failed to set ESMF_Calendar'

   end subroutine set_up