mfm_timemgmttypes.f

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

!===============================================================================
      module MFM_TimeMgmtTypes

! This file is a general header for the Fortran interface to the
! Modeling Framework Modules.  It contains definitions of derived types
! and common parameters.  
!
! IMPORTANT NOTE:  These types are defined in detail ONLY in order to correctly 
!                  allocate enough memory for the C MF library to build data
!                  structures within them.  They CANNOT be accessed directly 
!                  via the FORTRAN % dereference operator. 
!
!===============================================================================

      type MFM_TOD
        private
        sequence
        integer(8) type
        integer(8) sec
        integer(8) msec
      end type MFM_TOD

      type MFM_Calendar
        private
        sequence
        integer(8) type
        integer(8) dim(13)
        integer(8) dimRunningSum(13)
        integer(8) diy
      end type MFM_Calendar

      type MFM_Time
        private
        sequence
        integer(8) day
        type(MFM_TOD) tod
      end type MFM_Time

      type MFM_Date
        private
        sequence
        type(MFM_Calendar) calendar
        integer(8) year
        integer(8) month
        integer(8) day
        type(MFM_TOD) tod
        integer(8) julianDay
        integer(8) dayOfYear
      end type MFM_Date

      type MFM_TimeMgr
        private
        sequence
        integer(8) nstep
        type(MFM_Time) stepSize
        type(MFM_Date) startDate
        type(MFM_Date) stopDate
        type(MFM_Date) baseDate
        type(MFM_Date) currDate
        type(MFM_Date) prevDate
      end type MFM_TimeMgr

      type MFM_Alarm
        private
        sequence
        integer(8) type
        integer(8) offset
        integer(8) period
        integer(8) alarmOn
      end type MFM_Alarm

      integer, parameter :: MFM_SUCCESS=0
        
      integer, parameter :: MFM_TIME_UNDEFINED=-1

      integer, parameter :: MFM_CALENDAR_TYPE_UNDEFINED=0,
     &                      MFM_NO_LEAP=1,
     &                      MFM_GREGORIAN=2,                    
     &                      MFM_360_DAY=3

      integer, parameter :: MFM_ALARM_PERIODIC=0,
     &                      MFM_ALARM_MONTHLY=1,
     &                      MFM_ALARM_YEARLY=2

      integer, parameter :: MFM_ERR_RETURN=0,
     &                      MFM_ERR_EXIT=1,
     &                      MFM_ERR_USER_DEFINED=2

      end module MFM_TimeMgmtTypes