Back to home page

darwin3
 
 

    

File indexing completed on 2024-12-17 18:33:27 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
4fa4901be6 Nico*0001 #include "CHEAPAML_OPTIONS.h"
                0002 CBOP
                0003 C     !ROUTINE: CHEAPAML_DIAGNOSTICS_INIT
                0004 C     !INTERFACE:
                0005       SUBROUTINE CHEAPAML_DIAGNOSTICS_INIT( myThid )
                0006 
                0007 C     !DESCRIPTION: \bv
                0008 C     *==========================================================*
                0009 C     | SUBROUTINE CHEAPAML_DIAGNOSTICS_INIT
                0010 C     | o Routine to initialize list of all available diagnostics
                0011 C     |   for CHEAPAML package
                0012 C     *==========================================================*
                0013 C     \ev
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016 
                0017 C     === Global variables ===
                0018 #include "EEPARAMS.h"
                0019 #include "SIZE.h"
                0020 #include "PARAMS.h"
                0021 #include "CHEAPAML.h"
                0022 
                0023 C     !INPUT/OUTPUT PARAMETERS:
                0024 C     === Routine arguments ===
                0025 C     myThid ::  my Thread Id number
                0026       INTEGER myThid
                0027 CEOP
                0028 
                0029 #ifdef ALLOW_DIAGNOSTICS
                0030 C     !LOCAL VARIABLES:
                0031 C     === Local variables ===
                0032 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0033 C     diagMate  :: diag. mate number in the (long) list of available diag.
                0034 C     diagName  :: local short name (8c) of a diagnostics
                0035 C     diagCode  :: local parser field with characteristics of the diagnostics
                0036 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0037 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0038 C     diagTitle :: local string (80c): description of field in diagnostic
                0039       INTEGER       diagNum
                0040       INTEGER       diagMate
                0041       CHARACTER*8   diagName
                0042       CHARACTER*16  diagCode
                0043       CHARACTER*16  diagUnits
                0044       CHARACTER*(80) diagTitle
                0045 
                0046 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0047 
                0048       diagName  = 'CH_TAIR '
                0049       diagTitle = 'cheapAML Surface Air Temp'
                0050       diagUnits = 'degres C        '
                0051       diagCode  = 'SM      L1      '
                0052       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0053      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0054 
                0055       diagName  = 'CH_QNET '
                0056       diagTitle = 'cheapAML Surface heating '
                0057       diagUnits = 'W/m2            '
                0058       diagCode  = 'SM      L1      '
                0059       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0060      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0061 
                0062       diagName  = 'CH_QAIR '
8dd440cec6 Jean*0063       diagTitle = 'cheapAML Specific Humidity'
                0064       diagUnits = 'kg/kg           '
4fa4901be6 Nico*0065       diagCode  = 'SM      L1      '
                0066       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0067      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0068 
                0069       diagName  = 'CH_EmP  '
51132e5783 Nico*0070       diagTitle = 'cheapAML Evap-Precip     '
8dd440cec6 Jean*0071       diagUnits = 'kg/m2/s         '
4fa4901be6 Nico*0072       diagCode  = 'SM      L1      '
                0073       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0074      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0075 
51132e5783 Nico*0076       diagName  = 'CH_Trace'
                0077       diagTitle = 'cheapAML Passive Tracer  '
b73ef139b2 Jean*0078       diagUnits = 'Depend on Tracer'
51132e5783 Nico*0079       diagCode  = 'SM      L1      '
                0080       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0081      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0082 
4fa4901be6 Nico*0083       diagName  = 'CH_Uwind'
51132e5783 Nico*0084       diagTitle = 'cheapAML Zonal Wind      '
4fa4901be6 Nico*0085       diagUnits = 'm/s           '
                0086       diagCode  = 'UU      L1      '
cf7668ee37 Jean*0087       diagmate  = diagNum + 2
4fa4901be6 Nico*0088       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0089      I      diagName, diagCode, diagUnits, diagTitle, diagmate, myThid )
                0090 
                0091       diagName  = 'CH_Vwind'
                0092       diagTitle = 'cheapAML Meridional Wind '
                0093       diagUnits = 'm/s             '
                0094       diagCode  = 'VV      L1      '
                0095       diagmate  = diagNum
                0096       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0097      I      diagName, diagCode, diagUnits, diagTitle, diagmate, myThid )
                0098 
2616d73cb2 Nico*0099       diagName  = 'CH_LH   '
                0100       diagTitle = 'cheapAML latent heat     '
                0101       diagUnits = 'W/m2            '
                0102       diagCode  = 'SM      L1      '
                0103       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0104      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0105 
                0106       diagName  = 'CH_SH   '
dec8788575 Jean*0107       diagTitle = 'cheapAML sensible heat   '
2616d73cb2 Nico*0108       diagUnits = 'W/m2            '
                0109       diagCode  = 'SM      L1      '
                0110       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0111      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
4fa4901be6 Nico*0112 
dec8788575 Jean*0113       diagName  = 'CH_Prec '
                0114       diagTitle = 'cheapAML precipitation   '
                0115       diagUnits = 'kg/m2/s         '
                0116       diagCode  = 'SM      L1      '
                0117       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0118      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0119 
8dd440cec6 Jean*0120       diagName  = 'CH_q100 '
                0121       diagTitle = 'cheapAML upper Specific Humidity'
                0122       diagUnits = 'kg/kg           '
                0123       diagCode  = 'SM      L1      '
                0124       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0125      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0126 
                0127       diagName  = 'CH_ssqt '
                0128       diagTitle = 'cheapAML surf sat Specific Humid.'
                0129       diagUnits = 'kg/kg           '
                0130       diagCode  = 'SM      L1      '
                0131       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0132      I            diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0133 
4fa4901be6 Nico*0134 #endif /* ALLOW_DIAGNOSTICS */
                0135 
                0136       RETURN
                0137       END
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/darwinproject/darwin3 by the 2.3.7-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!