pkg/exf/exf_getfield_start.F

f05433056d Jean*0001 #include "EXF_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004
                0005 CBOP
                0006 C     !ROUTINE: EXF_GETFIELD_START
                0007 C     !INTERFACE:
                0008        SUBROUTINE EXF_GETFIELD_START(
                0009      I                useYearlyFields,
                0010      I                fld_startdate1, fld_startdate2,
                0011      O                fld_start_time,
                0012      I                myThid )
                0013
                0014 C !DESCRIPTION: \bv
                0015 C  *==========================================================*
                0016 C  | SUBROUTINE EXF_GETFIELD_START
da6a686ce6 Jean*0017 C  | o old version of current S/R EXF_GETFFIELD_START
                0018 C  |   - with fewer arguments
                0019 C  |   - does not check if parameters are consistent with
                0020 C  |     useCAL setting
                0021 C  | o kept to allow to compile and use old piece of code
f05433056d Jean*0022 C  *==========================================================*
                0023 C \ev
                0024
                0025 C !USES:
                0026       IMPLICIT NONE
                0027 C     === Global variables ===
                0028 #include "SIZE.h"
                0029 #include "EEPARAMS.h"
                0030 #include "PARAMS.h"
                0031
                0032 C !INPUT/OUTPUT PARAMETERS:
                0033 C     useYearlyFields :: select if using EXF Yearly-fields or not
                0034 C     fld_startdate1  :: field starting date (YYYYMMDD)
                0035 C     fld_startdate2  :: field starting date (HHMMSS)
                0036 C     fld_start_time  :: corresponding starting time (in sec) for this field
                0037 C     myThid          :: My Thread Id number
                0038       LOGICAL useYearlyFields
                0039       INTEGER fld_startdate1, fld_startdate2
                0040       _RL fld_start_time
                0041       INTEGER myThid
                0042
                0043 C !LOCAL VARIABLES:
                0044 C     msgBuf          :: Informational/error message buffer
                0045 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
da6a686ce6 Jean*0046       CHARACTER*(3) pkg_name
                0047       CHARACTER*(7) fld_name
                0048       _RL fld_period
                0049       INTEGER errCount
f05433056d Jean*0050 CEOP
                0051
da6a686ce6 Jean*0052       IF ( useCAL ) THEN
                0053         pkg_name   = 'xxx'
                0054         fld_name   = 'exf_gen'
                0055         fld_period = oneRL
                0056         fld_start_time = UNSET_RL
                0057         errCount   = 0
                0058         CALL EXF_GETFFIELD_START( useYearlyFields,
                0059      I                     pkg_name, fld_name, fld_period,
                0060      I                     fld_startdate1, fld_startdate2,
                0061      U                     fld_start_time, errCount,
                0062      I                     myThid )
f05433056d Jean*0063       ENDIF
                0064
                0065       RETURN
                0066       END