pkg/cal/cal_init_fixed.F

17206208d3 Jean*0001 #include "CAL_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: CAL_INIT_FIXED
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE CAL_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialise CAL variables that are kept fixed during the run.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018
                0019 C     !INPUT/OUTPUT PARAMETERS:
                0020 C     myThid ::  my Thread Id number
                0021       INTEGER myThid
                0022 CEOP
                0023
                0024 C     !LOCAL VARIABLES:
                0025 C     === Local variables ===
                0026
                0027 #ifdef ALLOW_DEBUG
                0028       IF (debugMode) CALL DEBUG_ENTER('CAL_INIT_FIXED',myThid)
                0029 #endif
                0030
                0031 C     Check consistency of the date specifications with the MITgcm
                0032 C     startTime, endTime, and nTimeSteps, then set all the calendar
                0033 C     parameters.
                0034       CALL CAL_SET(
                0035      I              startTime, endTime, deltaTclock,
                0036      I              nIter0, nEndIter, nTimeSteps,
                0037      I              myThid )
                0038
                0039       CALL CAL_SUMMARY( myThid )
                0040
                0041 #ifdef ALLOW_DEBUG
                0042       IF (debugMode) CALL DEBUG_LEAVE('CAL_INIT_FIXED',myThid)
                0043 #endif
                0044
                0045       RETURN
                0046       END