pkg/opps/opps_init.F

893df04db0 Mart*0001 #include "OPPS_OPTIONS.h"
                0002
                0003       SUBROUTINE OPPS_INIT( myThid )
016b84c482 Mart*0004 C     *==========================================================*
893df04db0 Mart*0005 C     | SUBROUTINE OPPS_INIT                                     |
                0006 C     | o Routine to initialize OPPS parameters and variables.   |
016b84c482 Mart*0007 C     *==========================================================*
893df04db0 Mart*0008 C     | Initialize OPPS parameters and variables.                |
016b84c482 Mart*0009 C     *==========================================================*
893df04db0 Mart*0010       IMPLICIT NONE
                0011
                0012 C     === Global variables ===
                0013 #include "SIZE.h"
                0014 #include "EEPARAMS.h"
                0015 #include "PARAMS.h"
                0016 #include "OPPS.h"
                0017
                0018 C     === Routine arguments ===
016b84c482 Mart*0019 C     myThid :: my Thread Id number
893df04db0 Mart*0020       INTEGER myThid
                0021
016b84c482 Mart*0022 C     !LOCAL VARIABLES :
893df04db0 Mart*0023 C     === Local variables ===
016b84c482 Mart*0024 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0025 C     diagName  :: local short name (8c) of a diagnostics
                0026 C     diagCode  :: local parser field with characteristics of the diagnostics
                0027 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0028 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0029 C     diagTitle :: local string (80c): description of field in diagnostic
                0030
                0031 #ifdef ALLOW_DIAGNOSTICS
                0032       INTEGER       diagNum
                0033       CHARACTER*8   diagName
                0034       CHARACTER*16  diagCode
                0035       CHARACTER*16  diagUnits
                0036       CHARACTER*(80) diagTitle
                0037 #endif
                0038 CEOP
893df04db0 Mart*0039
                0040 C-----------------------------------------------------------------------
016b84c482 Mart*0041 C Initialize OPPS variables
893df04db0 Mart*0042 C-----------------------------------------------------------------------
                0043
016b84c482 Mart*0044 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0045
                0046 #ifdef ALLOW_DIAGNOSTICS
                0047       IF ( useDiagnostics ) THEN
                0048         diagName  = 'OPPScadj'
                0049         diagTitle = 'OPPS Convective Adjustment Index [0-1] '
                0050         diagUnits = 'fraction        '
                0051         diagCode  = 'SMR     LR      '
                0052         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0053      I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0054       ENDIF
                0055 #endif /* ALLOW_DIAGNOSTICS */
                0056
                0057       RETURN
                0058       END