Back to home page

darwin3
 
 

    

File indexing completed on 2024-12-17 18:35:05 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
a176fcc394 Andr*0001 #include "FIZHI_OPTIONS.h"
                0002 
                0003 CBOP
                0004 C     !ROUTINE: FIZHI_DIAGNOSTICS_INIT
                0005 C     !INTERFACE:
                0006       SUBROUTINE FIZHI_DIAGNOSTICS_INIT( myThid )
                0007 
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE FIZHI_DIAGNOSTICS_INIT
                0011 C     | o Routine to initialize list of all available diagnostics
                0012 C     |   for FIZHI package
                0013 C     *==========================================================*
                0014 C     \ev
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017 
                0018 C     === Global variables ===
                0019 #include "EEPARAMS.h"
                0020 
                0021 C     !INPUT/OUTPUT PARAMETERS:
                0022 C     === Routine arguments ===
                0023 C     myThid ::  my Thread Id number
                0024       INTEGER myThid
                0025 CEOP
                0026 
                0027 #ifdef ALLOW_DIAGNOSTICS
                0028 C     !LOCAL VARIABLES:
                0029 C     === Local variables ===
                0030 C     diagNum   :: diagnostics number in the (long) list of available diag.
03a64b15f0 Jean*0031 C     diagMate  :: diag. mate number in the (long) list of available diag.
a176fcc394 Andr*0032 C     diagName  :: local short name (8c) of a diagnostics
                0033 C     diagCode  :: local parser field with characteristics of the diagnostics
                0034 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0035 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0036 C     diagTitle :: local string (80c): description of field in diagnostic
                0037       INTEGER       diagNum
03a64b15f0 Jean*0038       INTEGER       diagMate
a176fcc394 Andr*0039       CHARACTER*8   diagName
                0040       CHARACTER*16  diagCode
                0041       CHARACTER*16  diagUnits
                0042       CHARACTER*(80) diagTitle
                0043 
                0044 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0045 
                0046       diagName  = 'HFLUX   '
03a64b15f0 Jean*0047       diagTitle = 'Sensible Heat Flux (pos.upwrd)  (W/m^2)'
                0048       diagUnits = 'watt/m2         '
a176fcc394 Andr*0049       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0050       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0051      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0052 
                0053       diagName  = 'EFLUX   '
03a64b15f0 Jean*0054       diagTitle = 'Latent   Heat Flux (pos.upwrd)  (W/m^2)'
                0055       diagUnits = 'watt/m2         '
a176fcc394 Andr*0056       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0057       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0058      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0059 
c9625b8a62 Andr*0060       diagName  = 'UFLUX   '
03a64b15f0 Jean*0061       diagTitle = 'Zonal Wind Surface Stress  (N/m^2)'
                0062       diagUnits = 'N/m2            '
                0063       diagCode  = 'UM      L1      '
                0064       diagMate  = diagNum + 2
                0065       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0066      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
c9625b8a62 Andr*0067 
                0068       diagName  = 'VFLUX   '
03a64b15f0 Jean*0069       diagTitle = 'Meridional Wind Surface Stress  (N/m^2)'
                0070       diagUnits = 'N/m2            '
                0071       diagCode  = 'VM      L1      '
                0072       diagMate  = diagNum
                0073       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0074      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
c9625b8a62 Andr*0075 
a176fcc394 Andr*0076       diagName  = 'QICE    '
03a64b15f0 Jean*0077       diagTitle = 'Heat Conduction through Sea-Ice  (W/m^2)'
                0078       diagUnits = 'watt/m2         '
a176fcc394 Andr*0079       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0080       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0081      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0082 
                0083       diagName  = 'RADLWG  '
03a64b15f0 Jean*0084       diagTitle = 'Net Upward   Longwave Flux at the Ground  (W/m^2)'
                0085       diagUnits = 'watt/m2         '
a176fcc394 Andr*0086       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0087       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0088      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0089 
                0090       diagName  = 'RADSWG  '
03a64b15f0 Jean*0091       diagTitle = 'Net Downward Shortwave Flux at the Ground  (W/m^2)'
                0092       diagUnits = 'watt/m2         '
c283e06ad3 Andr*0093       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0094       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0095      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0096 
                0097       diagName  = 'RI      '
03a64b15f0 Jean*0098       diagTitle = 'Richardson Number  (non-dimensional)'
                0099       diagUnits = 'non-dimensional '
a176fcc394 Andr*0100       diagCode  = 'SM      LL      '
03a64b15f0 Jean*0101       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0102      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0103 
                0104       diagName  = 'CT      '
03a64b15f0 Jean*0105       diagTitle = 'Surface Drag Coef for Scalars (non-dimensional)'
                0106       diagUnits = 'non-dimensional '
a176fcc394 Andr*0107       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0108       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0109      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0110 
                0111       diagName  = 'CU      '
03a64b15f0 Jean*0112       diagTitle = 'Surface Drag Coef for Winds (non-dimensional)'
                0113       diagUnits = 'non-dimensional '
a176fcc394 Andr*0114       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0115       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0116      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0117 
                0118       diagName  = 'KM      '
03a64b15f0 Jean*0119       diagTitle = 'Eddy Diffusivity Coefficient for Momentum  (m^2/s)'
                0120       diagUnits = 'm2/sec          '
a176fcc394 Andr*0121       diagCode  = 'SM      LL      '
03a64b15f0 Jean*0122       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0123      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0124 
                0125       diagName  = 'KH      '
03a64b15f0 Jean*0126       diagTitle = 'Eddy Diffusivity Coefficient for Scalars  (m^2/s)'
                0127       diagUnits = 'm2/sec          '
a176fcc394 Andr*0128       diagCode  = 'SM      LL      '
03a64b15f0 Jean*0129       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0130      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0131 
                0132       diagName  = 'TURBU   '
03a64b15f0 Jean*0133       diagTitle = 'Zonal Wind Tendency from Turbulence  (m/s/day)'
                0134       diagUnits = 'm/s/day         '
                0135       diagCode  = 'UM      ML      '
                0136       diagMate  = diagNum + 2
                0137       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0138      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0139 
                0140       diagName  = 'TURBV   '
03a64b15f0 Jean*0141       diagTitle = 'Meridional Wind Tendency from Turbulence  (m/s/day)'
                0142       diagUnits = 'm/s/day         '
                0143       diagCode  = 'VM      ML      '
                0144       diagMate  = diagNum
                0145       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0146      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0147 
                0148       diagName  = 'TURBT   '
03a64b15f0 Jean*0149       diagTitle =
                0150      &  'Temperature Tendency from Turbulence  (K/day)'
                0151       diagUnits = 'K/day           '
a176fcc394 Andr*0152       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0153       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0154      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0155 
                0156       diagName  = 'TURBQ   '
03a64b15f0 Jean*0157       diagTitle =
                0158      &  'Specific Humidity Tendency from Turbulence  (g/kg/day)'
                0159       diagUnits = 'gram/kg/day     '
a176fcc394 Andr*0160       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0161       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0162      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0163 
684749f265 Andr*0164       diagName  = 'MOISTU  '
03a64b15f0 Jean*0165       diagTitle = 'Zonal Wind Tendency from Moist Proc  (m/s/day)'
                0166       diagUnits = 'm/s/day         '
                0167       diagCode  = 'UM      ML      '
                0168       diagMate  = diagNum + 2
                0169       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0170      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
684749f265 Andr*0171 
                0172       diagName  = 'MOISTV  '
03a64b15f0 Jean*0173       diagTitle = 'Meridional Wind Tendency from Moist Proc  (m/s/day)'
                0174       diagUnits = 'm/s/day         '
                0175       diagCode  = 'VM      ML      '
                0176       diagMate  = diagNum
                0177       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0178      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
684749f265 Andr*0179 
a176fcc394 Andr*0180       diagName  = 'MOISTT  '
03a64b15f0 Jean*0181       diagTitle =
                0182      &  'Temperature Tendency due to Moist Processes  (K/day)'
                0183       diagUnits = 'K/day           '
a176fcc394 Andr*0184       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0185       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0186      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0187 
                0188       diagName  = 'MOISTQ  '
03a64b15f0 Jean*0189       diagTitle =
                0190      &  'Specific Humidity Tendency due to Moist Processes  (g/kg/day)'
                0191       diagUnits = 'gram/kg/day     '
a176fcc394 Andr*0192       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0193       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0194      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0195 
                0196       diagName  = 'RADLW   '
03a64b15f0 Jean*0197       diagTitle =
                0198      &  'Temperature Tendency due to Longwave Radiation  (K/day)'
                0199       diagUnits = 'K/day           '
a176fcc394 Andr*0200       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0201       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0202      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0203 
                0204       diagName  = 'RADSW   '
03a64b15f0 Jean*0205       diagTitle =
                0206      &  'Temperature Tendency due to Shortwave Radiation  (K/day)'
                0207       diagUnits = 'K/day           '
c283e06ad3 Andr*0208       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0209       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0210      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0211 
                0212       diagName  = 'PREACC  '
03a64b15f0 Jean*0213       diagTitle = 'Total Precipitation  (mm/day)'
                0214       diagUnits = 'mm/day          '
c283e06ad3 Andr*0215       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0216       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0217      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0218 
                0219       diagName  = 'PRECON  '
03a64b15f0 Jean*0220       diagTitle = 'Convective Precipitation  (mm/day)'
                0221       diagUnits = 'mm/day          '
c283e06ad3 Andr*0222       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0223       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0224      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0225 
                0226       diagName  = 'TUFLUX  '
03a64b15f0 Jean*0227       diagTitle = 'Turbulent Flux of Zonal Momentum  (N/m^2)'
                0228       diagUnits = 'N/m2            '
                0229       diagCode  = 'UM      LL      '
                0230       diagMate  = diagNum + 2
                0231       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0232      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0233 
                0234       diagName  = 'TVFLUX  '
03a64b15f0 Jean*0235       diagTitle = 'Turbulent Flux of Meridional Momentum  (N/m^2)'
                0236       diagUnits = 'N/m2            '
                0237       diagCode  = 'VM      LL      '
                0238       diagMate  = diagNum
                0239       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0240      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0241 
                0242       diagName  = 'TTFLUX  '
03a64b15f0 Jean*0243       diagTitle = 'Turbulent Flux of Sensible Heat  (W/m^2)'
                0244       diagUnits = 'watt/m2         '
a176fcc394 Andr*0245       diagCode  = 'SM      LL      '
03a64b15f0 Jean*0246       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0247      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0248 
                0249       diagName  = 'TQFLUX  '
03a64b15f0 Jean*0250       diagTitle = 'Turbulent Flux of Latent Heat  (W/m^2)'
                0251       diagUnits = 'watt/m2         '
a176fcc394 Andr*0252       diagCode  = 'SM      LL      '
03a64b15f0 Jean*0253       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0254      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0255 
                0256       diagName  = 'CN      '
03a64b15f0 Jean*0257       diagTitle = 'Neutral Drag Coefficient  (non-dimensional)'
                0258       diagUnits = 'non-dimensional '
a176fcc394 Andr*0259       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0260       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0261      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0262 
                0263       diagName  = 'WINDS   '
03a64b15f0 Jean*0264       diagTitle = 'Surface Wind Speed  (m/s)'
                0265       diagUnits = 'm/sec           '
a176fcc394 Andr*0266       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0267       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0268      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0269 
                0270       diagName  = 'DTSRF   '
03a64b15f0 Jean*0271       diagTitle = 'Air/Surface Virtual Temperature Difference  (deg K)'
                0272       diagUnits = 'K               '
a176fcc394 Andr*0273       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0274       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0275      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0276 
                0277       diagName  = 'TGROUND '
03a64b15f0 Jean*0278       diagTitle = 'Ground Temperature  (deg K)'
                0279       diagUnits = 'K               '
a176fcc394 Andr*0280       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0281       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0282      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0283 
                0284       diagName  = 'TS      '
03a64b15f0 Jean*0285       diagTitle = 'Surface Air Temperature  (deg K)'
                0286       diagUnits = 'K               '
a176fcc394 Andr*0287       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0288       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0289      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0290 
                0291       diagName  = 'DTG     '
03a64b15f0 Jean*0292       diagTitle = 'Ground Temperature Adjustment (deg K)'
                0293       diagUnits = 'K               '
a176fcc394 Andr*0294       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0295       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0296      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0297 
                0298       diagName  = 'QG      '
03a64b15f0 Jean*0299       diagTitle = 'Ground Specific Humidity  (g/kg)'
                0300       diagUnits = 'gram/kg         '
a176fcc394 Andr*0301       diagCode  = 'SM P    L1      '
03a64b15f0 Jean*0302       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0303      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0304 
                0305       diagName  = 'QS      '
03a64b15f0 Jean*0306       diagTitle = 'Saturation Surface Specific Humidity  (g/kg)'
                0307       diagUnits = 'gram/kg         '
a176fcc394 Andr*0308       diagCode  = 'SM P    L1      '
03a64b15f0 Jean*0309       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0310      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0311 
                0312       diagName  = 'TGRLW   '
03a64b15f0 Jean*0313       diagTitle = 'Ground Temperature used by LW Radiation  (deg K)'
                0314       diagUnits = 'K               '
a176fcc394 Andr*0315       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0316       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0317      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0318 
                0319       diagName  = 'LWGUP   '
03a64b15f0 Jean*0320       diagTitle = 'Upward Longwave Radiation at the Ground  (W/m^2)'
                0321       diagUnits = 'watt/m2         '
a176fcc394 Andr*0322       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0323       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0324      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0325 
                0326       diagName  = 'OLR     '
03a64b15f0 Jean*0327       diagTitle = 'Outgoing Longwave Radiation   (W/m^2)'
                0328       diagUnits = 'watt/m2         '
a176fcc394 Andr*0329       diagCode  = 'SM      U1      '
03a64b15f0 Jean*0330       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0331      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0332 
                0333       diagName  = 'OLRCLR  '
03a64b15f0 Jean*0334       diagTitle = 'Clear Sky Outgoing Longwave Radiation  (W/m^2)'
                0335       diagUnits = 'watt/m2         '
a176fcc394 Andr*0336       diagCode  = 'SM      U1      '
03a64b15f0 Jean*0337       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0338      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0339 
                0340       diagName  = 'LWGCLR  '
03a64b15f0 Jean*0341       diagTitle = 'Clear Sky Net Longwave Flux at the Ground  (W/m^2)'
                0342       diagUnits = 'watt/m2         '
a176fcc394 Andr*0343       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0344       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0345      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0346 
                0347       diagName  = 'LWCLR   '
03a64b15f0 Jean*0348       diagTitle = 'Clear Sky Longwave Radiation Heating Rates  (K/day)'
                0349       diagUnits = 'K/day           '
a176fcc394 Andr*0350       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0351       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0352      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0353 
                0354       diagName  = 'TLW     '
03a64b15f0 Jean*0355       diagTitle = 'Temperature used by Radiation  (deg K)'
                0356       diagUnits = 'K               '
a176fcc394 Andr*0357       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0358       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0359      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0360 
                0361       diagName  = 'SHRAD   '
03a64b15f0 Jean*0362       diagTitle = 'Specific Humidity used by Radiation  (g/kg)'
                0363       diagUnits = 'gram/kg         '
a176fcc394 Andr*0364       diagCode  = 'SM P    ML      '
03a64b15f0 Jean*0365       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0366      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0367 
                0368       diagName  = 'OZLW    '
03a64b15f0 Jean*0369       diagTitle =
                0370      & 'Ozone mixing ratio used by Longwave Radiation (non-dimensional)'
                0371       diagUnits = 'non-dimensional '
a176fcc394 Andr*0372       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0373       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0374      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0375 
                0376       diagName  = 'CLDRAS  '
03a64b15f0 Jean*0377       diagTitle = 'Convective Cloud Fraction  (0-1)'
                0378       diagUnits = '0-1             '
a176fcc394 Andr*0379       diagCode  = 'SM P    ML      '
03a64b15f0 Jean*0380       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0381      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0382 
                0383       diagName  = 'CLDTOT  '
03a64b15f0 Jean*0384       diagTitle = '3-D Total Cloud Fraction  (0-1)'
                0385       diagUnits = '0-1             '
a176fcc394 Andr*0386       diagCode  = 'SM P    ML      '
03a64b15f0 Jean*0387       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0388      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0389 
                0390       diagName  = 'LWGDOWN '
03a64b15f0 Jean*0391       diagTitle = 'Downward Longwave Radiation at the Ground  (W/m^2)'
                0392       diagUnits = 'watt/m2         '
a176fcc394 Andr*0393       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0394       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0395      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0396 
                0397       diagName  = 'GWDT    '
03a64b15f0 Jean*0398       diagTitle =
                0399      &  'Temperature Tendency due to Gravity Wave Drag  (K/day)'
                0400       diagUnits = 'K/day           '
a176fcc394 Andr*0401       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0402       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0403      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0404 
                0405       diagName  = 'RADSWT  '
03a64b15f0 Jean*0406       diagTitle = 'Incident Shortwave Radiation at TOA (W/m^2)'
                0407       diagUnits = 'watt/m2         '
c283e06ad3 Andr*0408       diagCode  = 'SM      U1      '
03a64b15f0 Jean*0409       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0410      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0411 
                0412       diagName  = 'TAUCLD  '
03a64b15f0 Jean*0413       diagTitle =
                0414      &  'Counted Cloud Optical Depth (non-dimensional) per 100 mb'
                0415       diagUnits = 'non-dimensional '
                0416       diagCode  = 'SM  C   ML      '
                0417       diagMate  = diagNum + 2
                0418       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0419      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0420 
                0421       diagName  = 'TAUCLDC '
03a64b15f0 Jean*0422       diagTitle = 'Cloud Optical Depth Counter'
                0423       diagUnits = 'count           '
a176fcc394 Andr*0424       diagCode  = 'SM  D   ML      '
03a64b15f0 Jean*0425       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0426      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0427 
                0428       diagName  = 'CLDLOW  '
03a64b15f0 Jean*0429       diagTitle = 'Low-Level ( 1000-700 hPa) Cloud Fraction  (0-1)'
                0430       diagUnits = '0-1             '
a176fcc394 Andr*0431       diagCode  = 'SM P    M1      '
03a64b15f0 Jean*0432       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0433      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0434 
                0435       diagName  = 'EVAP    '
03a64b15f0 Jean*0436       diagTitle = 'Surface Evaporation  (mm/day)'
                0437       diagUnits = 'mm/day          '
a176fcc394 Andr*0438       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0439       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0440      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0441 
                0442       diagName  = 'DPDT    '
03a64b15f0 Jean*0443       diagTitle = 'Surface Pressure Tendency  (hPa/day)'
                0444       diagUnits = 'hPa/day         '
a176fcc394 Andr*0445       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0446       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0447      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0448 
                0449       diagName  = 'UAVE    '
03a64b15f0 Jean*0450       diagTitle = 'Average Zonal Wind (m/s)'
                0451       diagUnits = 'm/s             '
                0452       diagCode  = 'UM      ML      '
                0453       diagMate  = diagNum + 2
                0454       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0455      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0456 
                0457       diagName  = 'VAVE    '
03a64b15f0 Jean*0458       diagTitle = 'Average Meridional Wind (m/s)'
                0459       diagUnits = 'm/s             '
                0460       diagCode  = 'VM      ML      '
                0461       diagMate  = diagNum
                0462       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0463      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0464 
                0465       diagName  = 'TAVE    '
03a64b15f0 Jean*0466       diagTitle = 'Average Potential Temperature (K)'
                0467       diagUnits = 'K               '
61fe9f1bad Andr*0468       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0469       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0470      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0471 
                0472       diagName  = 'QAVE    '
03a64b15f0 Jean*0473       diagTitle =
                0474      &  'Average Specific Humidity (g/kg)'
                0475       diagUnits = 'gram/kg         '
61fe9f1bad Andr*0476       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0477       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0478      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0479 
                0480       diagName  = 'OMEGA   '
03a64b15f0 Jean*0481       diagTitle = 'Vertical Velocity  (hPa/day)'
                0482       diagUnits = 'hPa/day         '
a176fcc394 Andr*0483       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0484       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0485      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0486 
                0487       diagName  = 'DUDT    '
03a64b15f0 Jean*0488       diagTitle = 'Total Zonal Wind Tendency  (m/s/day)'
                0489       diagUnits = 'm/s/day         '
                0490       diagCode  = 'UM      ML      '
                0491       diagMate  = diagNum + 2
                0492       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0493      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0494 
                0495       diagName  = 'DVDT    '
03a64b15f0 Jean*0496       diagTitle = 'Total Meridional Wind Tendency  (m/s/day)'
                0497       diagUnits = 'm/s/day         '
                0498       diagCode  = 'VM      ML      '
                0499       diagMate  = diagNum
                0500       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0501      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0502 
                0503       diagName  = 'DTDT    '
03a64b15f0 Jean*0504       diagTitle = 'Total Temperature Tendency  (K/day)'
                0505       diagUnits = 'K/day           '
a176fcc394 Andr*0506       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0507       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0508      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0509 
                0510       diagName  = 'DQDT    '
03a64b15f0 Jean*0511       diagTitle = 'Total Specific Humidity Tendency  (g/kg/day)'
                0512       diagUnits = 'gram/kg/day     '
a176fcc394 Andr*0513       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0514       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0515      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0516 
                0517       diagName  = 'VORT    '
03a64b15f0 Jean*0518       diagTitle = 'Relative Vorticity  (x10^-4  sec^-1)'
                0519       diagUnits = '(e-4 sec-1)     '
a176fcc394 Andr*0520       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0521       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0522      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0523 
                0524       diagName  = 'DTLS    '
03a64b15f0 Jean*0525       diagTitle =
                0526      &  'Temperature Tendency due to Stratiform Processes  (K/day)'
                0527       diagUnits = 'K/day           '
a176fcc394 Andr*0528       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0529       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0530      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0531 
                0532       diagName  = 'DQLS    '
03a64b15f0 Jean*0533       diagTitle =
                0534      & 'Specific Humidity Tendency from Stratiform Processes (g/kg/day)'
                0535       diagUnits = 'gram/kg/day     '
a176fcc394 Andr*0536       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0537       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0538      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0539 
                0540       diagName  = 'USTAR   '
03a64b15f0 Jean*0541       diagTitle = 'Friction Velocity  (m/s)'
                0542       diagUnits = 'm/sec           '
a176fcc394 Andr*0543       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0544       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0545      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0546 
                0547       diagName  = 'Z0      '
03a64b15f0 Jean*0548       diagTitle = 'Surface Roughness Z0  (m)'
                0549       diagUnits = 'm               '
a176fcc394 Andr*0550       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0551       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0552      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0553 
                0554       diagName  = 'FRQTRB  '
03a64b15f0 Jean*0555       diagTitle = 'Frequency of Turbulence  (0-1)'
                0556       diagUnits = '0-1             '
a176fcc394 Andr*0557       diagCode  = 'SM P    MM      '
03a64b15f0 Jean*0558       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0559      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0560 
                0561       diagName  = 'PBL     '
03a64b15f0 Jean*0562       diagTitle = 'Estimated PBL Depth  (hPa)'
                0563       diagUnits = 'hPa             '
a176fcc394 Andr*0564       diagCode  = 'SM P    M1      '
03a64b15f0 Jean*0565       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0566      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0567 
                0568       diagName  = 'SWCLR   '
03a64b15f0 Jean*0569       diagTitle = 'Clear Sky Shortwave Heating Rates  (K/day)'
                0570       diagUnits = 'K/day           '
c283e06ad3 Andr*0571       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0572       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0573      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0574 
                0575       diagName  = 'OSR     '
03a64b15f0 Jean*0576       diagTitle = 'Outgoing Shortwave Radiation  (W/m^2)'
                0577       diagUnits = 'watt/m2         '
c283e06ad3 Andr*0578       diagCode  = 'SM      U1      '
03a64b15f0 Jean*0579       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0580      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0581 
                0582       diagName  = 'OSRCLR  '
03a64b15f0 Jean*0583       diagTitle = 'Clear Sky Outgoing Shortwave Radiation  (W/m^2)'
                0584       diagUnits = 'watt/m2         '
c283e06ad3 Andr*0585       diagCode  = 'SM      U1      '
03a64b15f0 Jean*0586       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0587      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0588 
                0589       diagName  = 'CLDMAS  '
03a64b15f0 Jean*0590       diagTitle = 'Cloud Mass Flux  (g/m^2/sec)'
                0591       diagUnits = 'g/m2/sec        '
a176fcc394 Andr*0592       diagCode  = 'SM P    LL      '
03a64b15f0 Jean*0593       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0594      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0595 
                0596       diagName  = 'UWND    '
03a64b15f0 Jean*0597       diagTitle = 'Time-Averaged Zonal Wind  (m/s)'
                0598       diagUnits = 'm/sec           '
                0599       diagCode  = 'UM      ML      '
                0600       diagMate  = diagNum + 2
                0601       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0602      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0603 
                0604       diagName  = 'VWND    '
03a64b15f0 Jean*0605       diagTitle = 'Time-Averaged Meridional Wind  (m/s)'
                0606       diagUnits = 'm/sec           '
                0607       diagCode  = 'VM      ML      '
                0608       diagMate  = diagNum
                0609       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0610      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0611 
                0612       diagName  = 'TMPU    '
03a64b15f0 Jean*0613       diagTitle = 'Time-Averaged Temperature  (deg K)'
                0614       diagUnits = 'K               '
a176fcc394 Andr*0615       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0616       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0617      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0618 
                0619       diagName  = 'SPHU    '
03a64b15f0 Jean*0620       diagTitle = 'Time-Averaged Specific Humidity  (g/kg)'
                0621       diagUnits = 'gram/kg         '
a176fcc394 Andr*0622       diagCode  = 'SM P    ML      '
03a64b15f0 Jean*0623       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0624      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0625 
                0626       diagName  = 'RFT     '
03a64b15f0 Jean*0627       diagTitle =
                0628      &  'Temperature Tendency due to Rayleigh Friction (K/day)'
                0629       diagUnits = 'K/day           '
a176fcc394 Andr*0630       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0631       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0632      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0633 
                0634       diagName  = 'PS      '
03a64b15f0 Jean*0635       diagTitle = 'Time-Averaged Surface Pressure  (hPa)'
                0636       diagUnits = 'hPa             '
a176fcc394 Andr*0637       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0638       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0639      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0640 
7f220c000e Andr*0641       diagName  = 'SLP     '
03a64b15f0 Jean*0642       diagTitle = 'Sea Level Pressure (mb)'
                0643       diagUnits = 'mb              '
7f220c000e Andr*0644       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0645       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0646      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
7f220c000e Andr*0647 
a176fcc394 Andr*0648       diagName  = 'TKE     '
03a64b15f0 Jean*0649       diagTitle = 'Time-Averaged Turbulent Kinetic Energy  (m/s)^2'
                0650       diagUnits = '(m/sec)2        '
a176fcc394 Andr*0651       diagCode  = 'SM P    LL      '
03a64b15f0 Jean*0652       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0653      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0654 
                0655       diagName  = 'SWGCLR  '
03a64b15f0 Jean*0656       diagTitle =
                0657      &  'Clear Sky Net Downward SW Radiation at the Ground  (W/m^2)'
                0658       diagUnits = 'watt/m2         '
c283e06ad3 Andr*0659       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0660       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0661      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0662 
                0663       diagName  = 'PAVE    '
03a64b15f0 Jean*0664       diagTitle = 'Average Surface Pressure (hPa)'
                0665       diagUnits = 'hPa/day         '
a176fcc394 Andr*0666       diagCode  = 'SM      L1      '
03a64b15f0 Jean*0667       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0668      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0669 
                0670       diagName  = 'DIABU   '
03a64b15f0 Jean*0671       diagTitle =
                0672      &  'Zonal Wind Tendency due to Diabatic Forcing  (m/s/day)'
                0673       diagUnits = 'm/s/day         '
                0674       diagCode  = 'UM      ML      '
                0675       diagMate  = diagNum + 2
                0676       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0677      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0678 
                0679       diagName  = 'DIABV   '
03a64b15f0 Jean*0680       diagTitle =
                0681      &  'Meridional Wind Tendency due to Diabatic Forcing  (m/s/day)'
                0682       diagUnits = 'm/s/day         '
                0683       diagCode  = 'VM      ML      '
                0684       diagMate  = diagNum
                0685       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0686      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0687 
                0688       diagName  = 'DIABT   '
03a64b15f0 Jean*0689       diagTitle =
                0690      &  'Temperature Tendency due to Diabatic Forcing  (K/day)'
                0691       diagUnits = 'K/day           '
a176fcc394 Andr*0692       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0693       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0694      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0695 
                0696       diagName  = 'DIABQ   '
03a64b15f0 Jean*0697       diagTitle =
                0698      &  'Specific Humidity Tendency due to Diabatic Forcing  (g/kg/day)'
                0699       diagUnits = 'gram/kg/day     '
a176fcc394 Andr*0700       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0701       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0702      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0703 
                0704       diagName  = 'RFU     '
03a64b15f0 Jean*0705       diagTitle =
                0706      &  'Zonal Wind Tendency due to Rayleigh Friction  (m/s/day)'
                0707       diagUnits = 'm/s/day         '
                0708       diagCode  = 'UM      ML      '
                0709       diagMate  = diagNum + 2
                0710       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0711      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0712 
                0713       diagName  = 'RFV     '
03a64b15f0 Jean*0714       diagTitle =
                0715      &  'Meridional Wind Tendency due to Rayleigh Friction  (m/s/day)'
                0716       diagUnits = 'm/s/day         '
                0717       diagCode  = 'VM      ML      '
                0718       diagMate  = diagNum
                0719       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0720      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0721 
                0722       diagName  = 'GWDU    '
03a64b15f0 Jean*0723       diagTitle =
                0724      &  'Zonal Wind Tendency due to Gravity Wave Drag  (m/s/day)'
                0725       diagUnits = 'm/s/day         '
                0726       diagCode  = 'UM      ML      '
                0727       diagMate  = diagNum + 2
                0728       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0729      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0730 
                0731       diagName  = 'GWDV    '
03a64b15f0 Jean*0732       diagTitle =
                0733      &  'Meridional Wind Tendency due to Gravity Wave Drag  (m/s/day)'
                0734       diagUnits = 'm/s/day         '
                0735       diagCode  = 'VM      ML      '
                0736       diagMate  = diagNum
                0737       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0738      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0739 
                0740       diagName  = 'GWDUS   '
03a64b15f0 Jean*0741       diagTitle = 'Zonal Wind Gravity Wave Surface Stress (N/m^2)'
                0742       diagUnits = 'N/m2            '
                0743       diagCode  = 'UM      L1      '
                0744       diagMate  = diagNum + 2
                0745       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0746      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0747 
                0748       diagName  = 'GWDVS   '
03a64b15f0 Jean*0749       diagTitle = 'Meridional Wind Gravity Wave Surface Stress (N/m^2)'
                0750       diagUnits = 'N/m2            '
                0751       diagCode  = 'VM      L1      '
                0752       diagMate  = diagNum
                0753       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0754      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0755 
                0756       diagName  = 'GWDUT   '
03a64b15f0 Jean*0757       diagTitle = 'Zonal Wind Gravity Wave Stress at Model Top (N/m^2)'
                0758       diagUnits = 'N/m2            '
                0759       diagCode  = 'UM      U1      '
                0760       diagMate  = diagNum + 2
                0761       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0762      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0763 
                0764       diagName  = 'GWDVT   '
03a64b15f0 Jean*0765       diagTitle =
                0766      &  'Meridional Wind Gravity Wave Stress at Model Top (N/m^2)'
                0767       diagUnits = 'N/m2            '
                0768       diagCode  = 'VM      U1      '
                0769       diagMate  = diagNum
                0770       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0771      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0772 
                0773       diagName = 'LZRAD   '
                0774       diagTitle =
03a64b15f0 Jean*0775      &  'Estimated Cloud Liquid Water used in Radiation (mg/kg)'
a176fcc394 Andr*0776       diagUnits = 'mg/kg           '
                0777       diagCode = 'SM      ML      '
03a64b15f0 Jean*0778       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0779      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0780 
                0781       diagName = 'VAVEUQ  '
                0782       diagTitle = 'Vertically Averaged UWND*SPHU  (m/s g/kg)'
                0783       diagUnits = 'm/s gram/kg     '
03a64b15f0 Jean*0784       diagCode  = 'UM      M1      '
                0785       diagMate  = diagNum + 2
                0786       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0787      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0788 
                0789       diagName = 'VAVEVQ  '
                0790       diagTitle = 'Vertically Averaged VWND*SPHU  (m/s g/kg)'
                0791       diagUnits = 'm/s gram/kg     '
03a64b15f0 Jean*0792       diagCode  = 'VM      M1      '
                0793       diagMate  = diagNum
                0794       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0795      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0796 
                0797       diagName = 'VAVEUT  '
                0798       diagTitle = 'Vertically Averaged UWND*TMPU  (m/s deg K)'
                0799       diagUnits = 'm/s K           '
03a64b15f0 Jean*0800       diagCode  = 'UM      M1      '
                0801       diagMate  = diagNum + 2
                0802       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0803      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0804 
                0805       diagName = 'VAVEVT  '
                0806       diagTitle = 'Vertically Averaged VWND*TMPU  (m/s deg K)'
                0807       diagUnits = 'm/s K           '
03a64b15f0 Jean*0808       diagCode  = 'VM      M1      '
                0809       diagMate  = diagNum
                0810       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0811      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0812 
                0813       diagName = 'CLDFRC  '
                0814       diagTitle = '2-D Total Cloud Fraction  (0-1)'
                0815       diagUnits = '0-1             '
                0816       diagCode = 'SM P    M1      '
03a64b15f0 Jean*0817       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0818      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0819 
                0820       diagName = 'TPW     '
                0821       diagTitle = 'Total Precipitable Water  (g/cm^2)'
                0822       diagUnits = 'gram/cm2        '
                0823       diagCode = 'SM P    M1      '
03a64b15f0 Jean*0824       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0825      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0826 
                0827       diagName = 'U2M     '
                0828       diagTitle = 'Zonal Wind Interpolated to 2 Meters (m/s)'
                0829       diagUnits = 'm/sec           '
03a64b15f0 Jean*0830       diagCode  = 'UM      M1      '
                0831       diagMate  = diagNum + 2
                0832       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0833      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0834 
                0835       diagName = 'V2M     '
                0836       diagTitle = 'Meridional Wind Interpolated to 2 Meters (m/s)'
                0837       diagUnits = 'm/sec           '
03a64b15f0 Jean*0838       diagCode  = 'VM      M1      '
                0839       diagMate  = diagNum
                0840       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0841      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0842 
                0843       diagName = 'T2M     '
                0844       diagTitle = 'Temperature Interpolated to 2 Meters (deg K)'
                0845       diagUnits = 'K               '
                0846       diagCode = 'SM      M1      '
03a64b15f0 Jean*0847       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0848      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0849 
                0850       diagName = 'Q2M     '
                0851       diagTitle = 'Specific Humidity Interpolated to 2 Meters (g/kg)'
                0852       diagUnits = 'gram/kg         '
                0853       diagCode = 'SM P    M1      '
03a64b15f0 Jean*0854       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0855      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0856 
                0857       diagName = 'U10M    '
                0858       diagTitle = 'Zonal Wind Interpolated to 10 Meters (m/s)'
                0859       diagUnits = 'm/sec           '
03a64b15f0 Jean*0860       diagCode  = 'UM      M1      '
                0861       diagMate  = diagNum + 2
                0862       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0863      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0864 
                0865       diagName = 'V10M    '
                0866       diagTitle = 'Meridional Wind Interpolated to 10 Meters (m/s)'
                0867       diagUnits = 'm/sec           '
03a64b15f0 Jean*0868       diagCode  = 'VM      M1      '
                0869       diagMate  = diagNum
                0870       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0871      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0872 
                0873       diagName = 'T10M    '
                0874       diagTitle = 'Temperature Interpolated to 10 Meters (deg K)'
                0875       diagUnits = 'K               '
                0876       diagCode = 'SM      M1      '
03a64b15f0 Jean*0877       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0878      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0879 
                0880       diagName = 'Q10M    '
                0881       diagTitle = 'Specific Humidity Interpolated to 10 Meters (g/kg)'
                0882       diagUnits = 'gram/kg         '
                0883       diagCode = 'SM P    M1      '
03a64b15f0 Jean*0884       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0885      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0886 
                0887       diagName = 'DTRAIN  '
                0888       diagTitle = 'Detrainment Cloud Mass Flux  (g/m^2/sec)'
                0889       diagUnits = 'g/m2/sec        '
                0890       diagCode = 'SM P    LL      '
03a64b15f0 Jean*0891       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0892      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0893 
                0894       diagName = 'QFILL   '
                0895       diagTitle = 'Filling of Negative Specific Humidity (g/kg/day)'
                0896       diagUnits = 'gram/kg/day     '
                0897       diagCode = 'SM      ML      '
03a64b15f0 Jean*0898       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0899      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0900 
                0901       diagName = 'VAVEQAVE'
                0902       diagTitle = 'Vertically Averaged QAVE  (mm/day)'
                0903       diagUnits = 'mm/day          '
                0904       diagCode = 'SM      M1      '
03a64b15f0 Jean*0905       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0906      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0907 
                0908       diagName = 'VAVEQFIL'
                0909       diagTitle = 'Vertically Averaged QFILL  (mm/day)'
                0910       diagUnits = 'mm/day          '
                0911       diagCode = 'SM P    L1      '
03a64b15f0 Jean*0912       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0913      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0914 
                0915       diagName = 'CLDMID  '
                0916       diagTitle = 'Mid-Level (700-400 hPa) Cloud Fraction  (0-1)'
                0917       diagUnits = '0-1             '
                0918       diagCode = 'SM P    M1      '
03a64b15f0 Jean*0919       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0920      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0921 
                0922       diagName = 'CLDHI   '
                0923       diagTitle = 'High-Level (above 400 hPa) Cloud Fraction  (0-1)'
                0924       diagUnits = '0-1             '
                0925       diagCode = 'SM P    M1      '
03a64b15f0 Jean*0926       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0927      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0928 
                0929       diagName = 'TAULOW  '
                0930       diagTitle = 'Low-Level (1000-700 hPa) Optical Depth'
                0931       diagUnits = 'non-dimensional '
03a64b15f0 Jean*0932       diagCode  = 'SM PC   M1      '
                0933       diagMate  = diagNum + 2
                0934       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0935      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
c283e06ad3 Andr*0936 
                0937       diagName = 'TAULOWC '
                0938       diagTitle = 'Low-Level Optical Depth Counter'
                0939       diagUnits = 'count           '
                0940       diagCode = 'SM  D   M1      '
03a64b15f0 Jean*0941       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0942      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0943 
                0944       diagName = 'TAUMID  '
                0945       diagTitle = 'Mid-Level (700-400 hPa) Optical Depth'
                0946       diagUnits = 'non-dimensional '
03a64b15f0 Jean*0947       diagCode  = 'SM PC   M1      '
                0948       diagMate  = diagNum + 2
                0949       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0950      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
c283e06ad3 Andr*0951 
                0952       diagName = 'TAUMIDC '
                0953       diagTitle = 'Mid-Level Optical Depth Counter'
                0954       diagUnits = 'count           '
                0955       diagCode = 'SM  D   M1      '
03a64b15f0 Jean*0956       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0957      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0958 
                0959       diagName = 'TAUHI   '
                0960       diagTitle = 'High-Level (above 400 hPa) Optical Depth'
                0961       diagUnits = 'non-dimensional '
03a64b15f0 Jean*0962       diagCode  = 'SM PC   M1      '
                0963       diagMate  = diagNum + 2
                0964       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0965      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
c283e06ad3 Andr*0966 
                0967       diagName = 'TAUHIC  '
                0968       diagTitle = 'High-Level Optical Depth Counter'
                0969       diagUnits = 'count           '
                0970       diagCode = 'SM  D   M1      '
03a64b15f0 Jean*0971       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0972      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0973 
                0974       diagName = 'CLDNP   '
                0975       diagTitle = 'Non-Precipitating Cloud Fraction  (0-1)'
                0976       diagUnits = '0-1             '
                0977       diagCode = 'SM      ML      '
03a64b15f0 Jean*0978       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0979      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0980 
                0981       diagName = 'CLDPRS  '
                0982       diagTitle = 'Cloud Top Pressure (when cloudy)  (hPa)'
                0983       diagUnits = 'hPa             '
03a64b15f0 Jean*0984       diagCode  = 'SM PC   M1      '
                0985       diagMate  = diagNum + 2
                0986       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0987      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*0988 
                0989       diagName = 'CTPCNT  '
                0990       diagTitle = 'Cloud Top Pressure Counter'
                0991       diagUnits = 'count           '
                0992       diagCode = 'SM  D   M1      '
03a64b15f0 Jean*0993       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0994      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*0995 
                0996       diagName = 'CLDTMP  '
                0997       diagTitle = 'Cloud Top Temperature (when cloudy)  (deg K)'
                0998       diagUnits = 'K               '
03a64b15f0 Jean*0999       diagCode  = 'SM PC   M1      '
                1000       diagMate  = diagNum + 2
                1001       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1002      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1003 
                1004       diagName = 'CTTCNT  '
                1005       diagTitle = 'Cloud Top Temperature Counter'
                1006       diagUnits = 'count           '
                1007       diagCode = 'SM  D   M1      '
03a64b15f0 Jean*1008       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1009      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1010 
                1011       diagName = 'TCANOPY '
                1012       diagTitle =
03a64b15f0 Jean*1013      &  'Skin Temperature of the Canopy/Soil (SST over water)  (deg K)'
a176fcc394 Andr*1014       diagUnits = 'K               '
                1015       diagCode = 'SM      L1      '
03a64b15f0 Jean*1016       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1017      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1018 
                1019       diagName = 'TDEEP   '
                1020       diagTitle = 'Deep Soil Temperature  (deg K)'
                1021       diagUnits = 'K               '
                1022       diagCode = 'SM      L1      '
03a64b15f0 Jean*1023       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1024      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1025 
                1026       diagName = 'QCANOPY '
                1027       diagTitle = 'Specific Humidity of the Canopy  (g/kg)'
                1028       diagUnits = 'gram/kg         '
                1029       diagCode = 'SM      L1      '
03a64b15f0 Jean*1030       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1031      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1032 
                1033       diagName = 'SMSHAL  '
                1034       diagTitle =
03a64b15f0 Jean*1035      &  'Soil Moisture Field Capacity Fraction in Shallow (5 mm) Layer'
a176fcc394 Andr*1036       diagUnits = '0-1             '
                1037       diagCode = 'SM      L1      '
03a64b15f0 Jean*1038       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1039      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1040 
                1041       diagName = 'SMROOT  '
                1042       diagTitle = 'Soil Moisture Field Capacity Fraction in Root Zone'
                1043       diagUnits = '0-1             '
                1044       diagCode = 'SM      L1      '
03a64b15f0 Jean*1045       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1046      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1047 
                1048       diagName = 'SMDEEP  '
                1049       diagTitle =
03a64b15f0 Jean*1050      &  'Soil Moisture Field Capacity Fraction in Recharge Layer '
a176fcc394 Andr*1051       diagUnits = '0-1             '
                1052       diagCode = 'SM      L1      '
03a64b15f0 Jean*1053       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1054      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1055 
                1056       diagName = 'CAPACITY'
                1057       diagTitle = 'Canopy Interception Reservoir (mm)'
                1058       diagUnits = 'mm              '
                1059       diagCode = 'SM      L1      '
03a64b15f0 Jean*1060       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1061      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1062 
                1063       diagName = 'SNOW    '
                1064       diagTitle = 'Snow Depth (mm water equivalent)'
                1065       diagUnits = 'mm water equiv  '
                1066       diagCode = 'SM      L1      '
03a64b15f0 Jean*1067       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1068      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1069 
                1070       diagName = 'RAINCON '
                1071       diagTitle = 'Convective Rainfall (liquid precipitate)  (mm/day)'
                1072       diagUnits = 'mm/day          '
                1073       diagCode = 'SM      L1      '
03a64b15f0 Jean*1074       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1075      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1076 
                1077       diagName = 'RAINLSP '
                1078       diagTitle = 'Large-scale Rainfall (liquid precipitate)  (mm/day)'
                1079       diagUnits = 'mm/day          '
                1080       diagCode = 'SM      L1      '
03a64b15f0 Jean*1081       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1082      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1083 
                1084       diagName = 'SNOWFALL'
                1085       diagTitle = 'Total Snowfall (solid precipitate)  (mm/day)'
                1086       diagUnits = 'mm/day          '
c283e06ad3 Andr*1087       diagCode = 'SM      L1      '
03a64b15f0 Jean*1088       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1089      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1090 
                1091       diagName = 'RUNOFF  '
                1092       diagTitle =
03a64b15f0 Jean*1093      &  'Water from precipitation not infiltrated into soil  (mm/s)'
a176fcc394 Andr*1094       diagUnits = 'mm/sec          '
                1095       diagCode = 'SM      L1      '
03a64b15f0 Jean*1096       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1097      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1098 
                1099       diagName = 'FWSOIL  '
                1100       diagTitle = 'Rainwater Infiltration into top soil layer  (mm/s)'
                1101       diagUnits = 'mm/sec          '
                1102       diagCode = 'SM      L1      '
03a64b15f0 Jean*1103       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1104      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1105 
                1106       diagName = 'GDRAIN  '
                1107       diagTitle =
03a64b15f0 Jean*1108      &  'Diffusion of Moisture across bottom of root zone  (mm/s)'
a176fcc394 Andr*1109       diagUnits = 'mm/sec          '
                1110       diagCode = 'SM      L1      '
03a64b15f0 Jean*1111       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1112      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1113 
                1114       diagName = 'SNOWMELT'
                1115       diagTitle = 'Rate of Snow Melt  (mm/s)'
                1116       diagUnits = 'mm/sec          '
                1117       diagCode = 'SM      L1      '
03a64b15f0 Jean*1118       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1119      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1120 
                1121       diagName = 'ERESV   '
                1122       diagTitle =
03a64b15f0 Jean*1123      &  'Latent Heat Flux from Canopy Interception Reservoir  (W/m^2)'
a176fcc394 Andr*1124       diagUnits = 'watt/m2         '
                1125       diagCode = 'SM      L1      '
03a64b15f0 Jean*1126       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1127      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1128 
                1129       diagName = 'ESOIL   '
                1130       diagTitle = 'Latent Heat Flux from Bare Soil  (W/m^2)'
                1131       diagUnits = 'watt/m2         '
                1132       diagCode = 'SM      L1      '
03a64b15f0 Jean*1133       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1134      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1135 
                1136       diagName = 'EVEG    '
                1137       diagTitle =
03a64b15f0 Jean*1138      & 'Latent Heat Flux (Transpiration) from Vegetated Surface (W/m^2)'
a176fcc394 Andr*1139       diagUnits = 'watt/m2         '
                1140       diagCode = 'SM      L1      '
03a64b15f0 Jean*1141       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1142      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1143 
                1144       diagName = 'ESNOW   '
                1145       diagTitle = 'Latent Heat Flux from Snow Pack  (W/m^2)'
                1146       diagUnits = 'watt/m2         '
                1147       diagCode = 'SM      L1      '
03a64b15f0 Jean*1148       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1149      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1150 
                1151       diagName = 'PARDF   '
                1152       diagTitle =
03a64b15f0 Jean*1153      &  'Diffuse-beam Photosynthetically Active Radiation  (W/m^2)'
a176fcc394 Andr*1154       diagUnits = 'watt/m2         '
                1155       diagCode = 'SM P    L1      '
03a64b15f0 Jean*1156       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1157      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1158 
                1159       diagName = 'PARDR   '
                1160       diagTitle =
03a64b15f0 Jean*1161      &  'Direct-beam Photosynthetically Active Radiation  (W/m^2)'
a176fcc394 Andr*1162       diagUnits = 'watt/m2         '
                1163       diagCode = 'SM P    L1      '
03a64b15f0 Jean*1164       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1165      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1166 
                1167       diagName = 'LAI     '
                1168       diagTitle = 'Leaf Area Index  (%)'
                1169       diagUnits = 'percent         '
                1170       diagCode = 'SM      L1      '
03a64b15f0 Jean*1171       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1172      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1173 
                1174       diagName = 'GREEN   '
                1175       diagTitle = 'Green-ness Index  (%)'
                1176       diagUnits = 'percent         '
                1177       diagCode = 'SM      L1      '
03a64b15f0 Jean*1178       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1179      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1180 
                1181       diagName = 'DLWDTC  '
                1182       diagTitle =
03a64b15f0 Jean*1183      &  'Derivative of Upward LW Radiation wrt TCANOPY (W/m^2 /deg K)'
a176fcc394 Andr*1184       diagUnits = 'watt/m2/K       '
                1185       diagCode = 'SM      L1      '
03a64b15f0 Jean*1186       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1187      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1188 
                1189       diagName = 'DHDTC   '
                1190       diagTitle =
03a64b15f0 Jean*1191      &  'Derivative of Sensible Heat Flux wrt TCANOPY (W/m^2 /deg K)'
a176fcc394 Andr*1192       diagUnits = 'watt/m2/K       '
                1193       diagCode = 'SM      L1      '
03a64b15f0 Jean*1194       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1195      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1196 
                1197       diagName = 'DEDTC   '
                1198       diagTitle =
03a64b15f0 Jean*1199      &  'Derivative of Latent Heat Flux wrt TCANOPY (W/m^2 /deg K)'
a176fcc394 Andr*1200       diagUnits = 'watt/m2/K       '
                1201       diagCode = 'SM      L1      '
03a64b15f0 Jean*1202       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1203      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1204 
                1205       diagName = 'VDTMOIST'
                1206       diagTitle = 'Vertically Averaged MOISTT  (K/day)'
                1207       diagUnits = 'K/day           '
                1208       diagCode = 'SM      M1      '
03a64b15f0 Jean*1209       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1210      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1211 
                1212       diagName = 'VDTTURB '
                1213       diagTitle = 'Vertically Averaged TURBT  (K/day)'
                1214       diagUnits = 'K/day           '
                1215       diagCode = 'SM      M1      '
03a64b15f0 Jean*1216       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1217      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1218 
                1219       diagName = 'VDTLWRAD'
                1220       diagTitle = 'Vertically Averaged RADLW  (K/day)'
                1221       diagUnits = 'K/day           '
                1222       diagCode = 'SM      M1      '
03a64b15f0 Jean*1223       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1224      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1225 
                1226       diagName = 'VDTSWRAD'
                1227       diagTitle = 'Vertically Averaged RADSW  (K/day)'
                1228       diagUnits = 'K/day           '
c283e06ad3 Andr*1229       diagCode = 'SM      M1      '
03a64b15f0 Jean*1230       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1231      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1232 
                1233       diagName = 'VAVETAVE'
                1234       diagTitle = 'Vertically Averaged TAVE  (K/day)'
                1235       diagUnits = 'K/day           '
                1236       diagCode = 'SM      M1      '
03a64b15f0 Jean*1237       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1238      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1239 
                1240       diagName = 'PSUBCLD '
                1241       diagTitle = 'Pressure Thickness of the RAS Subcloud Layer (mb)'
                1242       diagUnits = 'hPa             '
03a64b15f0 Jean*1243       diagCode  = 'SM PC   M1      '
                1244       diagMate  = diagNum + 2
                1245       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1246      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1247 
                1248       diagName = 'PSUBCLDC'
                1249       diagTitle =
03a64b15f0 Jean*1250      &  'Pressure Thickness of the RAS Subcloud Layer Counter'
a176fcc394 Andr*1251       diagUnits = 'count           '
                1252       diagCode = 'SM PD   M1      '
03a64b15f0 Jean*1253       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1254      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1255 
                1256       diagName = 'LCL     '
                1257       diagTitle = 'Lifting Condensation Level (mb)                 '
                1258       diagUnits = 'hPa             '
                1259       diagCode = 'SM      L1      '
03a64b15f0 Jean*1260       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1261      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1262 
                1263       diagName = 'EVPOT   '
                1264       diagTitle = 'Potential Evapotranspiration (W/m^2)'
                1265       diagUnits = 'watt/m2         '
                1266       diagCode = 'SM      L1      '
03a64b15f0 Jean*1267       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1268      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1269 
                1270       diagName = 'RHCHECK '
                1271       diagTitle =
03a64b15f0 Jean*1272      & 'Net precip due to supersaturation above critical RH  (mm/day)'
a176fcc394 Andr*1273       diagUnits = 'mm/day          '
c283e06ad3 Andr*1274       diagCode = 'SM      L1      '
03a64b15f0 Jean*1275       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1276      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1277 
                1278       diagName = 'DHDQA   '
                1279       diagTitle =
03a64b15f0 Jean*1280      &  'Derivative of Sensible Heat wrt Canopy Humidity (W/m^2)'
a176fcc394 Andr*1281       diagUnits = 'watt/m2         '
                1282       diagCode = 'SM      L1      '
03a64b15f0 Jean*1283       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1284      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1285 
                1286       diagName = 'DEDQA   '
                1287       diagTitle =
03a64b15f0 Jean*1288      &  'Derivative of Latent Heat wrt Canopy Humidity (W/m^2)'
a176fcc394 Andr*1289       diagUnits = 'watt/m2         '
                1290       diagCode = 'SM      L1      '
03a64b15f0 Jean*1291       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1292      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1293 
                1294       diagName = 'DTC     '
                1295       diagTitle = 'Total Change in Canopy Temperature (deg/sec)'
                1296       diagUnits = 'K/sec           '
                1297       diagCode = 'SM      L1      '
03a64b15f0 Jean*1298       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1299      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1300 
                1301       diagName = 'DQC     '
                1302       diagTitle = 'Change in Canopy Humidity (kg/kg/sec)'
                1303       diagUnits = 'sec-1           '
                1304       diagCode = 'SM      L1      '
03a64b15f0 Jean*1305       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1306      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1307 
                1308       diagName = 'TCDTC   '
                1309       diagTitle =
03a64b15f0 Jean*1310      &  'Change in Canopy Temperature - Energy Term (deg/sec)'
a176fcc394 Andr*1311       diagUnits = 'K/sec           '
                1312       diagCode = 'SM      L1      '
03a64b15f0 Jean*1313       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1314      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1315 
                1316       diagName = 'RADDTC  '
                1317       diagTitle =
03a64b15f0 Jean*1318      &  'Change in Canopy Temperature - Net Radiation Term (deg/sec)'
a176fcc394 Andr*1319       diagUnits = 'K/sec           '
                1320       diagCode = 'SM      L1      '
03a64b15f0 Jean*1321       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1322      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1323 
                1324       diagName = 'SENDDTC '
                1325       diagTitle =
03a64b15f0 Jean*1326      &  'Change in Canopy Temperature - Sensible Heat Term (deg/sec)'
a176fcc394 Andr*1327       diagUnits = 'K/sec           '
                1328       diagCode = 'SM      L1      '
03a64b15f0 Jean*1329       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1330      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1331 
                1332       diagName = 'LATDTC  '
                1333       diagTitle =
03a64b15f0 Jean*1334      &  'Change in Canopy Temperature - Latent Heat Term (deg/sec)'
a176fcc394 Andr*1335       diagUnits = 'K/sec           '
                1336       diagCode = 'SM      L1      '
03a64b15f0 Jean*1337       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1338      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1339 
                1340       diagName = 'TDDTC   '
                1341       diagTitle =
03a64b15f0 Jean*1342      &  'Change in Canopy Temperature - Ground Temp Term (deg/sec)'
a176fcc394 Andr*1343       diagUnits = 'K/sec           '
                1344       diagCode = 'SM      L1      '
03a64b15f0 Jean*1345       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1346      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1347 
                1348       diagName = 'QCDTC   '
                1349       diagTitle =
03a64b15f0 Jean*1350      &  'Change in Canopy Temperature - Humidity Term (deg/sec)'
a176fcc394 Andr*1351       diagUnits = 'K/sec           '
                1352       diagCode = 'SM      L1      '
03a64b15f0 Jean*1353       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1354      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1355 
                1356       diagName = 'TRBQLIQ '
                1357       diagTitle = 'Cloud Liquid Water Generated in Turbulence (mg/kg)'
                1358       diagUnits = 'mg/kg           '
                1359       diagCode = 'SM      ML      '
03a64b15f0 Jean*1360       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1361      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1362 
                1363       diagName = 'TRBFCC  '
                1364       diagTitle = 'Cloud Fraction Generated in Turbulence (fraction)'
                1365       diagUnits = '0-1             '
                1366       diagCode = 'SM      ML      '
03a64b15f0 Jean*1367       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1368      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1369 
                1370       diagName = 'ALBEDO  '
                1371       diagTitle = 'Mean Surface Albedo (SW_Up/SW_Down)  0-1 '
                1372       diagUnits = '0-1             '
03a64b15f0 Jean*1373       diagCode  = 'SM  C   L1      '
                1374       diagMate  = diagNum + 2
                1375       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1376      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
c283e06ad3 Andr*1377 
                1378       diagName = 'ALBEDOC '
                1379       diagTitle = 'Surface Albedo Counter'
                1380       diagUnits = 'count           '
                1381       diagCode = 'SM  D   L1      '
03a64b15f0 Jean*1382       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1383      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1384 
                1385       diagName = 'ALBVISDR'
                1386       diagTitle = 'Direct  Beam VIS Surface Albedo (0-1)   '
                1387       diagUnits = '0-1             '
                1388       diagCode = 'SM      L1      '
03a64b15f0 Jean*1389       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1390      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1391 
                1392       diagName = 'ALBVISDF'
                1393       diagTitle = 'Diffuse Beam VIS Surface Albedo (0-1)   '
                1394       diagUnits = '0-1             '
                1395       diagCode = 'SM      L1      '
03a64b15f0 Jean*1396       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1397      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1398 
                1399       diagName = 'ALBNIRDR'
                1400       diagTitle = 'Direct  Beam NIR Surface Albedo (0-1)   '
                1401       diagUnits = '0-1             '
                1402       diagCode = 'SM      L1      '
03a64b15f0 Jean*1403       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1404      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1405 
                1406       diagName = 'ALBNIRDF'
                1407       diagTitle = 'Diffuse Beam NIR Surface Albedo (0-1)   '
                1408       diagUnits = '0-1             '
                1409       diagCode = 'SM      L1      '
03a64b15f0 Jean*1410       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1411      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1412 
                1413       diagName = 'TAUAVE  '
                1414       diagTitle =
03a64b15f0 Jean*1415      &  'Averaged Cloud Optical Depth (non-dimensional) per 100 mb'
a176fcc394 Andr*1416       diagUnits = 'non-dimensional '
                1417       diagCode = 'SM      ML      '
03a64b15f0 Jean*1418       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1419      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1420 
                1421       diagName = 'RHCHECKT'
                1422       diagTitle =
03a64b15f0 Jean*1423      & 'Temperature Change due to humidity above critical RH  (K/day)'
a176fcc394 Andr*1424       diagUnits = 'K/day           '
                1425       diagCode = 'SM      ML      '
03a64b15f0 Jean*1426       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1427      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1428 
                1429       diagName = 'RHCHECKQ'
                1430       diagTitle =
03a64b15f0 Jean*1431      & 'Spec.Humid. Change due to humidity above critical RH (g/kg/day)'
a176fcc394 Andr*1432       diagUnits = 'g/kg/day        '
                1433       diagCode = 'SM      ML      '
03a64b15f0 Jean*1434       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1435      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1436 
                1437       diagName = 'CLDLSP  '
                1438       diagTitle = 'Large-Scale Cloud Fraction  (0-1)'
                1439       diagUnits = '0-1             '
                1440       diagCode = 'SM P    ML      '
03a64b15f0 Jean*1441       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1442      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1443 
                1444       diagName = 'LZLOW   '
                1445       diagTitle =
03a64b15f0 Jean*1446      &  'Vert integrated low-level (below 700mb) cloud water (mg/cm**2)'
a176fcc394 Andr*1447       diagUnits = 'mg/cm2          '
                1448       diagCode = 'SM P    L1      '
03a64b15f0 Jean*1449       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1450      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1451 
                1452       diagName = 'LZMID   '
                1453       diagTitle =
03a64b15f0 Jean*1454      &  'Vert integrated mid-level (700-400mb) cloud water (mg/cm**2)'
a176fcc394 Andr*1455       diagUnits = 'mg/cm2          '
                1456       diagCode = 'SM P    L1      '
03a64b15f0 Jean*1457       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1458      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1459 
                1460       diagName = 'LZHI    '
                1461       diagTitle =
03a64b15f0 Jean*1462      & 'Vert integrated high-level (above 400mb) cloud water (mg/cm**2)'
a176fcc394 Andr*1463       diagUnits = 'mg/cm2          '
                1464       diagCode = 'SM P    L1      '
03a64b15f0 Jean*1465       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1466      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1467 
                1468       diagName = 'LZTOT   '
                1469       diagTitle =
03a64b15f0 Jean*1470      &  'Vertically integrated total suspended cloud water (mg/cm**2)'
a176fcc394 Andr*1471       diagUnits = 'mg/cm2          '
                1472       diagCode = 'SM P    L1      '
03a64b15f0 Jean*1473       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1474      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1475 
                1476       diagName = 'CAPE    '
                1477       diagTitle = 'Convective Available Potential Energy'
                1478       diagUnits = 'mb m2/sec2      '
                1479       diagCode = 'SM P    L1      '
03a64b15f0 Jean*1480       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1481      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1482 
                1483       diagName = 'HSUBCL  '
                1484       diagTitle = 'Moist Static Energy in RAS subcloud layer'
                1485       diagUnits = 'm2/sec2         '
c283e06ad3 Andr*1486       diagCode = 'SM      L1      '
03a64b15f0 Jean*1487       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1488      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1489 
                1490       diagName = 'HSTAR   '
                1491       diagTitle = 'Saturation Moist Static Energy'
                1492       diagUnits = 'm2/sec2         '
c283e06ad3 Andr*1493       diagCode = 'SM      ML      '
03a64b15f0 Jean*1494       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1495      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1496 
                1497       diagName = 'CONT    '
                1498       diagTitle =
03a64b15f0 Jean*1499      &  'Temperature Tendency due to Convective  Precipitation (K/day)'
a176fcc394 Andr*1500       diagUnits = 'K/day           '
                1501       diagCode = 'SM      ML      '
03a64b15f0 Jean*1502       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1503      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1504 
                1505       diagName = 'CONQ    '
                1506       diagTitle =
03a64b15f0 Jean*1507      &  'Moisture Tendency due to Convective Precipitation (g/kg/day)'
a176fcc394 Andr*1508       diagUnits = 'g/kg/day        '
                1509       diagCode = 'SM      ML      '
03a64b15f0 Jean*1510       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1511      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1512 
                1513       diagName = 'LST     '
                1514       diagTitle =
03a64b15f0 Jean*1515      &  'Temperature Tendency due to Large Scale Precipitation (K/day)'
a176fcc394 Andr*1516       diagUnits = 'K/day           '
                1517       diagCode = 'SM      ML      '
03a64b15f0 Jean*1518       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1519      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1520 
                1521       diagName = 'LSQ     '
                1522       diagTitle =
03a64b15f0 Jean*1523      &  'Moisture Tendency due to Large Scale Precipitation (g/kg/day)'
a176fcc394 Andr*1524       diagUnits = 'g/kg/day        '
                1525       diagCode = 'SM      ML      '
03a64b15f0 Jean*1526       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1527      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1528 
                1529       diagName = 'CONEVPT '
                1530       diagTitle =
03a64b15f0 Jean*1531      &  'Temperature Tendency due to Conv Rain Re-evaporation (K/day)'
a176fcc394 Andr*1532       diagUnits = 'K/day           '
                1533       diagCode = 'SM      ML      '
03a64b15f0 Jean*1534       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1535      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1536 
                1537       diagName = 'CONEVPQ '
                1538       diagTitle =
03a64b15f0 Jean*1539      &  'Moisture Tendency due to Conv Rain Re-evaporation (g/kg/day)'
a176fcc394 Andr*1540       diagUnits = 'g/kg/day        '
                1541       diagCode = 'SM      ML      '
03a64b15f0 Jean*1542       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1543      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1544 
                1545       diagName = 'LSEVPT  '
                1546       diagTitle =
03a64b15f0 Jean*1547      &  'Temperature Tendency due to Large Scale Rain Re-evap (K/day)'
a176fcc394 Andr*1548       diagUnits = 'K/day           '
                1549       diagCode = 'SM      ML      '
03a64b15f0 Jean*1550       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1551      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1552 
                1553       diagName = 'LSEVPQ  '
                1554       diagTitle =
03a64b15f0 Jean*1555      &  'Moisture Tendency due to Large Scale Rain Re-evap (g/kg/day)'
a176fcc394 Andr*1556       diagUnits = 'g/kg/day        '
                1557       diagCode = 'SM      ML      '
03a64b15f0 Jean*1558       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1559      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1560 
                1561       diagName = 'GWCUMID '
                1562       diagTitle =
03a64b15f0 Jean*1563      &  'Mid-Lev Mean U-Wind for Gravity Wave Drag w/Clouds (m/sec)'
a176fcc394 Andr*1564       diagUnits = 'm/sec           '
03a64b15f0 Jean*1565       diagCode  = 'UM      L1      '
                1566       diagMate  = diagNum + 2
                1567       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1568      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1569 
                1570       diagName = 'GWCVMID '
                1571       diagTitle =
03a64b15f0 Jean*1572      &  'Mid-Lev Mean V-Wind for Gravity Wave Drag w/Clouds (m/sec)'
a176fcc394 Andr*1573       diagUnits = 'm/sec           '
03a64b15f0 Jean*1574       diagCode  = 'VM      L1      '
                1575       diagMate  = diagNum
                1576       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1577      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1578 
                1579       diagName = 'CLDSTD  '
                1580       diagTitle =
03a64b15f0 Jean*1581      & 'Mid-Lev Cloud Perturb Length for Gravity Wave Drag w/Clouds (m)'
a176fcc394 Andr*1582       diagUnits = 'm               '
                1583       diagCode = 'SM      L1      '
03a64b15f0 Jean*1584       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1585      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1586 
                1587       diagName = 'GWCUBAR '
                1588       diagTitle =
03a64b15f0 Jean*1589      & 'Mid-Lev Perturb U-Wind for Gravity Wave Drag w/Clouds (m/sec)'
a176fcc394 Andr*1590       diagUnits = 'm/sec           '
03a64b15f0 Jean*1591       diagCode  = 'UM      L1      '
                1592       diagMate  = diagNum + 2
                1593       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1594      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1595 
                1596       diagName = 'GWCVBAR '
                1597       diagTitle =
03a64b15f0 Jean*1598      & 'Mid-Lev Perturb V-Wind for Gravity Wave Drag w/Clouds (m/sec)'
a176fcc394 Andr*1599       diagUnits = 'm/sec           '
03a64b15f0 Jean*1600       diagCode  = 'VM      L1      '
                1601       diagMate  = diagNum
                1602       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1603      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1604 
                1605       diagName = 'GWCUS   '
                1606       diagTitle =
03a64b15f0 Jean*1607      & 'Mid-Lev U-Wind Stress for Gravity Wave Drag w/Clouds (N/m^2)'
a176fcc394 Andr*1608       diagUnits = 'N/m2            '
03a64b15f0 Jean*1609       diagCode  = 'UM      L1      '
                1610       diagMate  = diagNum + 2
                1611       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1612      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1613 
                1614       diagName = 'GWCVS   '
                1615       diagTitle =
03a64b15f0 Jean*1616      & 'Mid-Lev V-Wind Stress for Gravity Wave Drag w/Clouds (N/m^2)'
a176fcc394 Andr*1617       diagUnits = 'N/m2            '
03a64b15f0 Jean*1618       diagCode  = 'VM      L1      '
                1619       diagMate  = diagNum
                1620       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1621      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1622 
                1623       diagName = 'GWCU    '
                1624       diagTitle =
03a64b15f0 Jean*1625      & 'U-Wind Tendency due to Gravity Wave Drag w/Clouds (m/s/day)'
a176fcc394 Andr*1626       diagUnits = 'm/sec/day       '
03a64b15f0 Jean*1627       diagCode  = 'UM      ML      '
                1628       diagMate  = diagNum + 2
                1629       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1630      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1631 
                1632       diagName = 'GWCV    '
                1633       diagTitle =
03a64b15f0 Jean*1634      & 'V-Wind Tendency due to Gravity Wave Drag w/Clouds (m/s/day)'
a176fcc394 Andr*1635       diagUnits = 'm/sec/day       '
03a64b15f0 Jean*1636       diagCode  = 'VM      ML      '
                1637       diagMate  = diagNum
                1638       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1639      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
a176fcc394 Andr*1640 
                1641       diagName = 'PLALBEDO'
                1642       diagTitle = 'Planetary Albedo (Fraction)'
                1643       diagUnits = 'Fraction        '
                1644       diagCode = 'SM      L1      '
03a64b15f0 Jean*1645       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1646      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1647 
                1648       diagName = 'FIZPRES '
                1649       diagTitle = 'Pressures for Fizhi (mb)'
                1650       diagUnits = 'mb  (hPa)       '
                1651       diagCode = 'SM      ML      '
03a64b15f0 Jean*1652       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1653      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
a176fcc394 Andr*1654 
7a0ba078c9 Andr*1655       diagName  = 'CORRDU  '
03a64b15f0 Jean*1656       diagTitle =
                1657      &  'Zonal Wind Tendency Gridalt Correction Term (m/s/day)'
                1658       diagUnits = 'm/s/day         '
                1659       diagCode  = 'UM      ML      '
                1660       diagMate  = diagNum + 2
                1661       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1662      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
7a0ba078c9 Andr*1663 
                1664       diagName  = 'CORRDV  '
03a64b15f0 Jean*1665       diagTitle =
                1666      &  'Meridional Wind Tendency Gridalt Correction Term (m/s/day)'
                1667       diagUnits = 'm/s/day         '
                1668       diagCode  = 'VM      ML      '
                1669       diagMate  = diagNum
                1670       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1671      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
7a0ba078c9 Andr*1672 
                1673       diagName  = 'CORRDT  '
03a64b15f0 Jean*1674       diagTitle =
                1675      &  'Temperature Tendency Gridalt Correction Term (K/day)'
                1676       diagUnits = 'K/day           '
7a0ba078c9 Andr*1677       diagCode  = 'SM      ML      '
03a64b15f0 Jean*1678       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1679      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
7a0ba078c9 Andr*1680 
                1681       diagName  = 'CORRDQ  '
03a64b15f0 Jean*1682       diagTitle =
                1683      &  'Specific Humidity Tendency Gridalt Correction Term (g/kg/day)'
                1684       diagUnits = 'gram/kg/day     '
7a0ba078c9 Andr*1685       diagCode  = 'SM      ML      '
03a64b15f0 Jean*1686       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1687      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
7a0ba078c9 Andr*1688 
cd0ec133cf Andr*1689       diagName  = 'DIABUDYN'
03a64b15f0 Jean*1690       diagTitle =
                1691      &  'Zonal Wind Tend due to Diab Forcing - Dyn Grid (m/s/day)'
                1692       diagUnits = 'm/s/day         '
                1693       diagCode  = 'UM      MR      '
                1694       diagMate  = diagNum + 2
                1695       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1696      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
                1697 
cd0ec133cf Andr*1698       diagName  = 'DIABVDYN'
03a64b15f0 Jean*1699       diagTitle =
                1700      &  'Meridional Wind Tend due to Diab Forcing - Dyn Grid (m/s/day)'
                1701       diagUnits = 'm/s/day         '
                1702       diagCode  = 'VM      MR      '
                1703       diagMate  = diagNum
                1704       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1705      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
                1706 
cd0ec133cf Andr*1707       diagName  = 'DIABTDYN'
03a64b15f0 Jean*1708       diagTitle =
                1709      &  'Temperature Tend due to Diab Forcing - Dyn Grid (K/day)'
                1710       diagUnits = 'K/day           '
cd0ec133cf Andr*1711       diagCode  = 'SM      MR      '
03a64b15f0 Jean*1712       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1713      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                1714 
cd0ec133cf Andr*1715       diagName  = 'DIABQDYN'
03a64b15f0 Jean*1716       diagTitle =
                1717      &  'Specific Hum Tend due to Diab Forcing - Dyn Grid (g/kg/day)'
                1718       diagUnits = 'gram/kg/day     '
cd0ec133cf Andr*1719       diagCode  = 'SM      MR      '
03a64b15f0 Jean*1720       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1721      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
38c884016d Andr*1722 
                1723       diagName  = 'TENDUFIZ'
03a64b15f0 Jean*1724       diagTitle =
                1725      &  'Total Zonal Wind Tend - Fizhi Grid (m/s/day)'
                1726       diagUnits = 'm/s/day         '
                1727       diagCode  = 'UM      ML      '
                1728       diagMate  = diagNum + 2
                1729       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1730      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
                1731 
38c884016d Andr*1732       diagName  = 'TENDVFIZ'
03a64b15f0 Jean*1733       diagTitle =
                1734      &  'Total Meridional Wind Tend - Fizhi Grid (m/s/day)'
                1735       diagUnits = 'm/s/day         '
                1736       diagCode  = 'VM      ML      '
                1737       diagMate  = diagNum
                1738       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1739      I     diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
                1740 
38c884016d Andr*1741       diagName  = 'TENDTFIZ'
03a64b15f0 Jean*1742       diagTitle =
                1743      &  'Total Temperature Tend - Fizhi Grid (K/day)'
                1744       diagUnits = 'K/day           '
38c884016d Andr*1745       diagCode  = 'SM      ML      '
03a64b15f0 Jean*1746       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1747      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                1748 
38c884016d Andr*1749       diagName  = 'TENDQFIZ'
03a64b15f0 Jean*1750       diagTitle =
                1751      &  'Total Specific Hum Tend - Fizhi Grid (g/kg/day)'
                1752       diagUnits = 'gram/kg/day     '
38c884016d Andr*1753       diagCode  = 'SM      ML      '
03a64b15f0 Jean*1754       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                1755      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                1756 
a176fcc394 Andr*1757 #endif /* ALLOW_DIAGNOSTICS */
                1758 
                1759       RETURN
                1760       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!