|
||||
File indexing completed on 2018-03-02 18:42:54 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCa006ac8558 Mart*0001 #include "PP81_OPTIONS.h" 0002 0003 CBOP 0004 C !ROUTINE: PP81_DIAGNOSTICS_INIT 0005 C !INTERFACE: 0006 SUBROUTINE PP81_DIAGNOSTICS_INIT( myThid ) 0007 0008 C !DESCRIPTION: \bv 0009 C *==========================================================* 0010 C | SUBROUTINE PP81_DIAGNOSTICS_INIT 0011 C | o Routine to initialize list of all available diagnostics 0012 C | for PP81 package 0013 C *==========================================================* 0014 C \ev 0015 C !USES: 0016 IMPLICIT NONE 0017 0018 C === Global variables === 0019 0020 C !INPUT/OUTPUT PARAMETERS: 0021 C === Routine arguments === 0022 C myThid :: my Thread Id number 0023 INTEGER myThid 0024 CEOP 0025 0026 #ifdef ALLOW_DIAGNOSTICS 0027 C !LOCAL VARIABLES : 0028 C === Local variables === 0029 C diagNum :: diagnostics number in the (long) list of available diag. 0030 C diagName :: local short name (8c) of a diagnostics 0031 C diagCode :: local parser field with characteristics of the diagnostics 0032 C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT 0033 C diagUnits :: local string (16c): physical units of a diagnostic field 0034 C diagTitle :: local string (80c): description of field in diagnostic 0035 INTEGER diagNum 0036 CHARACTER*8 diagName 0037 CHARACTER*16 diagCode 0038 CHARACTER*16 diagUnits 0039 CHARACTER*(80) diagTitle 0040 0041 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| 0042 0043 diagName = 'PPviscAr' 0044 diagTitle = 'PP81 vertical eddy viscosity coefficient' 0045 diagUnits = 'm^2/s ' 0046 diagCode = 'SM P LR ' 0047 CALL DIAGNOSTICS_ADDTOLIST( diagNum, 0048 I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) 0049 0050 diagName = 'PPdiffKr' 0051 diagTitle = 'PP81 Vertical diffusion coefficient for tracers' 0052 diagUnits = 'm^2/s ' 0053 diagCode = 'SM P LR ' 0054 CALL DIAGNOSTICS_ADDTOLIST( diagNum, 0055 I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) 0056 0057 #endif /* ALLOW_DIAGNOSTICS */ 0058 0059 RETURN 0060 END
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |