/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_init_vals.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_init_vals.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by molod, Wed Mar 24 21:27:00 2004 UTC revision 1.16 by edhill, Wed May 5 00:39:21 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4        subroutine diagnostics_init_vals (myThid)        subroutine diagnostics_init_vals (myThid)
5  C ***********************************************************************  C ***********************************************************************
6  C *****                                                              ****  C *****                                                              ****
# Line 36  C ***** Line 39  C *****
39  C ***********************************************************************  C ***********************************************************************
40    
41        implicit none        implicit none
42    #include "PACKAGES_CONFIG.h"
43  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
44  #include "SIZE.h"  #include "SIZE.h"
45    
# Line 342  c ---------------- Line 346  c ----------------
346        cdiag(278) = 'UTRAC5  '        cdiag(278) = 'UTRAC5  '
347        cdiag(279) = 'VTRAC5  '        cdiag(279) = 'VTRAC5  '
348        cdiag(280) = 'WTRAC5  '        cdiag(280) = 'WTRAC5  '
349          cdiag(281) = 'TRAC1   '
350          cdiag(282) = 'TRAC2   '
351          cdiag(283) = 'TRAC3   '
352          cdiag(284) = 'TRAC4   '
353          cdiag(285) = 'TRAC5   '
354          cdiag(286) = 'DICBIOA '
355          cdiag(287) = 'DICCARB '
356          cdiag(288) = 'DICTFLX '
357          cdiag(289) = 'DICOFLX '
358          cdiag(290) = 'DICCFLX '
359          cdiag(291) = 'DICPCO2 '
360          cdiag(292) = 'DICPHAV '
361          cdiag(293) = 'DTCONV  '
362          cdiag(294) = 'DQCONV  '
363          cdiag(295) = 'RELHUM  '
364          cdiag(296) = 'PRECLS  '
365          cdiag(297) = 'ENPREC  '
366    
367  c Diagnostic Descriptions  c Diagnostic Descriptions
368  c ----------------------------------------------------------------------  c ----------------------------------------------------------------------
# Line 698  c -------------------------------------- Line 719  c --------------------------------------
719        tdiag(278)  = 'Zonal Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'        tdiag(278)  = 'Zonal Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'
720        tdiag(279)  = 'Merid Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'        tdiag(279)  = 'Merid Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'
721        tdiag(280)  = 'Vert  Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'        tdiag(280)  = 'Vert  Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'
722          tdiag(281)  = 'Mass-Weighted Tracer 1 ()'
723          tdiag(282)  = 'Mass-Weighted Tracer 2 ()'
724          tdiag(283)  = 'Mass-Weighted Tracer 3 ()'
725          tdiag(284)  = 'Mass-Weighted Tracer 4 ()'
726          tdiag(285)  = 'Mass-Weighted Tracer 5 ()'
727          tdiag(286)  = 'Biological Productivity (mol/m3/s)'
728          tdiag(287)  = 'Carbonate chg-biol prod and remin (mol eq/m3/s)'
729          tdiag(288)  = 'Tendency of DIC due to air-sea exch (mol/m3/s)'
730          tdiag(289)  = 'Tendency of O2 due to air-sea exch (mol/m3/s)'
731          tdiag(290)  = 'Flux of CO2 - air-sea exch (mol/m2/s)'
732          tdiag(291)  = 'Partial Pressure of CO2 (atm)'
733          tdiag(292)  = 'pH (dimensionless)'
734          tdiag(293)  = 'Temp Change due to Convection (K/sec)'
735          tdiag(294)  = 'Humidity Change due to Convection (g/kg/sec)'
736          tdiag(295)  = 'Relative Humidity (fraction)'
737          tdiag(296)  = 'Large Scale Precipitation (g/m2/sec)'
738          tdiag(297)  = 'Energy of Precipitation (snow, rain Temp) in (J/g)'
739    
740  c Diagnostic Units  c Diagnostic Units
741  c ----------------  c ----------------
# Line 981  c ---------------- Line 1019  c ----------------
1019        udiag(278) = 'm-kg/s-kg       '        udiag(278) = 'm-kg/s-kg       '
1020        udiag(279) = 'm-kg/s-kg       '        udiag(279) = 'm-kg/s-kg       '
1021        udiag(280) = 'm-kg/s-kg       '        udiag(280) = 'm-kg/s-kg       '
1022          udiag(281) = 'kg/kg           '
1023          udiag(282) = 'kg/kg           '
1024          udiag(283) = 'kg/kg           '
1025          udiag(284) = 'kg/kg           '
1026          udiag(285) = 'kg/kg           '
1027          udiag(286) = 'mol/m3/sec      '
1028          udiag(287) = 'mol eq/m3/sec   '
1029          udiag(288) = 'mol/m3/sec      '
1030          udiag(289) = 'mol/m3/sec      '
1031          udiag(290) = 'mol/m2/sec      '
1032          udiag(291) = 'atm             '
1033          udiag(292) = 'dimensionless   '
1034          udiag(293) = 'k/sec           '
1035          udiag(294) = 'g/kg/sec        '
1036          udiag(295) = 'Fraction        '
1037          udiag(296) = 'g/m2/sec        '
1038          udiag(297) = 'J/g             '
1039    
1040  c Diagnostic Parms  c Diagnostic Parms
1041  c ----------------  c ----------------
# Line 1233  c ---------------- Line 1288  c ----------------
1288        gdiag(247) = 'UU   248M       '        gdiag(247) = 'UU   248M       '
1289        gdiag(248) = 'VV   247M       '        gdiag(248) = 'VV   247M       '
1290        gdiag(249) = 'WM      L       '        gdiag(249) = 'WM      L       '
1291        gdiag(250) = 'UZ      M       '        gdiag(250) = 'UZ   250M       '
1292        gdiag(251) = 'UU   252M       '        gdiag(251) = 'UU   252M       '
1293        gdiag(252) = 'VV   251M       '        gdiag(252) = 'VV   251M       '
1294        gdiag(253) = 'WM      M       '        gdiag(253) = 'WM      M       '
# Line 1264  c ---------------- Line 1319  c ----------------
1319        gdiag(278) = 'UU   279M       '        gdiag(278) = 'UU   279M       '
1320        gdiag(279) = 'VV   278M       '        gdiag(279) = 'VV   278M       '
1321        gdiag(280) = 'WM      M       '        gdiag(280) = 'WM      M       '
1322          gdiag(281) = 'SM P    M       '
1323          gdiag(282) = 'SM P    M       '
1324          gdiag(283) = 'SM P    M       '
1325          gdiag(284) = 'SM P    M       '
1326          gdiag(285) = 'SM P    M       '
1327          gdiag(286) = 'SM P    M       '
1328          gdiag(287) = 'SM P    M       '
1329          gdiag(288) = 'SM P    L       '
1330          gdiag(289) = 'SM P    L       '
1331          gdiag(290) = 'SM P    L       '
1332          gdiag(291) = 'SM P    M       '
1333          gdiag(292) = 'SM P    M       '
1334          gdiag(293) = 'SM      M       '
1335          gdiag(294) = 'SM      M       '
1336          gdiag(295) = 'SM      M       '
1337          gdiag(296) = 'SM      M       '
1338          gdiag(297) = 'SM      M       '
1339                    
1340  c Diagnostic Levels  c Diagnostic Levels
1341  c -----------------  c -----------------
# Line 1547  c ----------------- Line 1619  c -----------------
1619        KDIAG(278)= Nr        KDIAG(278)= Nr
1620        KDIAG(279)= Nr        KDIAG(279)= Nr
1621        KDIAG(280)= Nr        KDIAG(280)= Nr
1622          KDIAG(281)= Nr
1623          KDIAG(282)= Nr
1624          KDIAG(283)= Nr
1625          KDIAG(284)= Nr
1626          KDIAG(285)= Nr
1627          KDIAG(286)= Nr
1628          KDIAG(287)= Nr
1629          KDIAG(288)= 1
1630          KDIAG(289)= 1
1631          KDIAG(290)= 1
1632          KDIAG(291)= 1
1633          KDIAG(292)= 1
1634          KDIAG(293)= Nr
1635          KDIAG(294)= Nr
1636          KDIAG(295)= Nr
1637          KDIAG(296)= 1
1638          KDIAG(297)= 1
1639    
1640        do n=1,ndiagt        do n=1,ndiagt
1641        idiag (n) = 0        idiag (n) = 0
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22