mfm_alarmex.f

来自「CCSM Research Tools: Community Atmospher」· F 代码 · 共 56 行

      !\begin{verbatim}
!===============================================================================
! MFM_Alarm F90 Unit Tests and Examples
!===============================================================================

      program main
 
      use MFM_TimeMgmt

      implicit none

      integer, parameter :: START_DATE=20011128, START_SECS=43200
      integer, parameter :: STOP_DATE=20011203, STOP_SECS=1200
      integer, parameter :: STEP_DAYS=1, STEP_SECS=43200
      integer, parameter :: NUM_ITS=3

      type(MFM_Time) :: stepSize
      type(MFM_TimeMgr) :: timeMgrNoBase
      type(MFM_Date) :: startDate, stopDate, currDate, prevDate      
      type(MFM_Date) :: baseDate
      type(MFM_Alarm) :: alarm

      logical test, isLast
      integer i, nsteps
      integer retCalDate, retDays, retSecs
      character(60) str    

      print *, "=================================================="
      print *, "MFM_Alarm F90 Unit Tests and Examples"
      print *, "=================================================="

      stepSize = MFM_TimeInit(STEP_DAYS, STEP_SECS)
      startDate = MFM_DateInit(MFM_GREGORIAN, START_DATE, START_SECS)
      stopDate = MFM_DateInit(MFM_GREGORIAN, STOP_DATE, STOP_SECS)

      alarm = MFM_AlarmInitMonthly();

      timeMgrNoBase = MFM_TimeMgrInit(stepSize, startDate, stopDate)

      do while (.NOT. MFM_TimeMgrLastStep(timeMgrNoBase))
         call MFM_TimeMgrAdvance(timeMgrNoBase)
         if(MFM_AlarmIsOn(alarm, timeMgrNoBase)) then
           print *, "alarmIsOn"
         end if
         call MFM_AlarmSet(alarm, .FALSE.)
      end do

      end program main !\end{verbatim}