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

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

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

revision 1.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.2 by jmc, Sat Dec 18 23:53:04 2004 UTC
# Line 50  C     !USES: Line 50  C     !USES:
50        implicit none        implicit none
51  #include "SIZE.h"  #include "SIZE.h"
52  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 c #include "EESUPPORT.h"  
53  #include "PARAMS.h"  #include "PARAMS.h"
54  #include "DIAGNOSTICS_SIZE.h"  #include "DIAGNOSTICS_SIZE.h"
55  #include "DIAGNOSTICS.h"  #include "DIAGNOSTICS.h"
# Line 1334  C--------------------------------------- Line 1333  C---------------------------------------
1333        udiag(237) = 'm/sec/day       '        udiag(237) = 'm/sec/day       '
1334        gdiag(237) = 'VM   236ML      '        gdiag(237) = 'VM   236ML      '
1335    
1336        cdiag(238) = 'ETAN    '  c-    set the total number of available diagnostics
1337        tdiag(238) = 'Perturbation of Surface (pressure, height) (hPa,m)'        ndiagt = 237
       udiag(238) = 'm or hPa        '  
       gdiag(238) = 'SM      M1      '  
   
       cdiag(239) = 'ETANSQ  '  
       tdiag(239) = 'Square of Perturbation of Sfc (hPa^2,m^2)'  
       udiag(239) = 'm2 or hPa2      '  
       gdiag(239) = 'SM      M1      '  
   
       cdiag(240) = 'THETA   '  
       tdiag(240)  = 'Potential Temperature (K)'  
       udiag(240) = 'K               '  
       gdiag(240) = 'SM      MR      '  
   
       cdiag(241) = 'SALT    '  
       tdiag(241)  = 'Salt or Water Vapor mixing ratio (g/kg)'  
       udiag(241) = 'g/kg            '  
       gdiag(241) = 'SM      MR      '  
   
       cdiag(242) = 'UVEL    '  
       tdiag(242)  = 'Zonal Component of Velocity (m/s)'  
       udiag(242) = 'm/sec           '  
       gdiag(242) = 'UU   243MR      '  
   
       cdiag(243) = 'VVEL    '  
       tdiag(243)  = 'Meridional Component of Velocity (m/s)'  
       udiag(243) = 'm/sec           '  
       gdiag(243) = 'VV   242MR      '  
   
       cdiag(244) = 'WVEL    '  
       tdiag(244)  = 'Vertical Component of Velocity (m/s)'  
       udiag(244) = 'm/sec           '  
       gdiag(244) = 'WM      LR      '  
   
       cdiag(245) = 'THETASQ '  
       tdiag(245)  = 'Square of Potential Temperature (K^2)'  
       udiag(245) = 'K2              '  
       gdiag(245) = 'SM      MR      '  
   
       cdiag(246) = 'SALTSQ  '  
       tdiag(246)  = 'Square of Salt or Water Vapor mix rat (g^2/kg^2)'  
       udiag(246) = 'g2/kg2          '  
       gdiag(246) = 'SM      MR      '  
   
       cdiag(247) = 'UVELSQ  '  
       tdiag(247)  = 'Square of Zonal Comp of Velocity (m^2/s^2)'  
       udiag(247) = 'm2/sec2         '  
       gdiag(247) = 'UU   248MR      '  
   
       cdiag(248) = 'VVELSQ  '  
       tdiag(248)  = 'Square of Meridional Comp of Velocity (m^2/s^2)'  
       udiag(248) = 'm2/sec2         '  
       gdiag(248) = 'VV   247MR      '  
   
       cdiag(249) = 'WVELSQ  '  
       tdiag(249)  = 'Square of Vertical Comp of Velocity (m^2/s^2)'  
       udiag(249) = 'm2/sec2         '  
       gdiag(249) = 'WM      LR      '  
   
       cdiag(250) = 'UVELVVEL'  
       tdiag(250)  = 'Meridional Transport of Zonal Momentum (m^2/s^2)'  
       udiag(250) = 'm2/sec2         '  
       gdiag(250) = 'UZ   250MR      '  
   
       cdiag(251) = 'UVELMASS'  
       tdiag(251)  = 'Zonal Mass-Weighted Comp of Velocity (m/s)'  
       udiag(251) = 'm/sec           '  
       gdiag(251) = 'UU   252MR      '  
   
       cdiag(252) = 'VVELMASS'  
       tdiag(252)  = 'Meridional Mass-Weighted Comp of Velocity (m/s)'  
       udiag(252) = 'm/sec           '  
       gdiag(252) = 'VV   251MR      '  
   
       cdiag(253) = 'WVELMASS'  
       tdiag(253)  = 'Vertical Mass-Weighted Comp of Velocity (m/s)'  
       udiag(253) = 'm/sec           '  
       gdiag(253) = 'WM      MR      '  
   
       cdiag(254) = 'UTHMASS '  
       tdiag(254)  = 'Zonal Mass-Weight Transp of Pot Temp (m-K/s)'  
       udiag(254) = 'm-K/sec         '  
       gdiag(254) = 'UU   255MR      '  
   
       cdiag(255) = 'VTHMASS '  
       tdiag(255)  = 'Meridional Mass-Weight Transp of Pot Temp (m-K/s)'  
       udiag(255) = 'm-K/sec         '  
       gdiag(255) = 'VV   254MR      '  
   
       cdiag(256) = 'WTHMASS '  
       tdiag(256)  = 'Vertical Mass-Weight Transp of Pot Temp (m-K/s)'  
       udiag(256) = 'm-K/sec         '  
       gdiag(256) = 'WM      MR      '  
   
       cdiag(257) = 'USLTMASS'  
       tdiag(257)  = 'Zonal Mass-Weight Transp of Salt (m-kg/s-kg)'  
       udiag(257) = 'm-kg/s-kg       '  
       gdiag(257) = 'UU   258MR      '  
   
       cdiag(258) = 'VSLTMASS'  
       tdiag(258)  = 'Meridional Mass-Weight Transp of Salt (m-kg/s-kg)'  
       udiag(258) = 'm-kg/s-kg       '  
       gdiag(258) = 'VV   257MR      '  
   
       cdiag(259) = 'WSLTMASS'  
       tdiag(259)  = 'Vertical Mass-Weight Transp of Salt (m-kg/s-kg)'  
       udiag(259) = 'm-kg/s-kg       '  
       gdiag(259) = 'WM      MR      '  
   
       cdiag(260) = 'UVELTH  '  
       tdiag(260)  = 'Zonal Transp of Pot Temp (m-K/s)'  
       udiag(260) = 'm-K/sec         '  
       gdiag(260) = 'UU   261MR      '  
   
       cdiag(261) = 'VVELTH  '  
       tdiag(261)  = 'Meridional Transp of Pot Temp (m-K/s)'  
       udiag(261) = 'm-K/sec         '  
       gdiag(261) = 'VV   260MR      '  
   
       cdiag(262) = 'WVELTH  '  
       tdiag(262)  = 'Vertical Transp of Pot Temp (m-K/s)'  
       udiag(262) = 'm-K/sec         '  
       gdiag(262) = 'WM      MR      '  
   
       cdiag(263) = 'UVELSLT '  
       tdiag(263)  = 'Zonal Transp of Salt (m-kg/s-kg)'  
       udiag(263) = 'm-kg/s-kg       '  
       gdiag(263) = 'UU   264MR      '  
   
       cdiag(264) = 'VVELSLT '  
       tdiag(264)  = 'Meridional Transp of Salt (m-kg/s-kg)'  
       udiag(264) = 'm-kg/s-kg       '  
       gdiag(264) = 'VV   263MR      '  
   
       cdiag(265) = 'WVELSLT '  
       tdiag(265)  = 'Vertical Transp of Salt (m-kg/s-kg)'  
       udiag(265) = 'm-kg/s-kg       '  
       gdiag(265) = 'WM      MR      '  
   
       cdiag(266) = 'UTRAC1  '  
       tdiag(266)  = 'Zonal Mass-Weighted Transp of Tracer 1 (m-kg/s-kg)'  
       udiag(266) = 'm-kg/s-kg       '  
       gdiag(266) = 'UU   267MR      '  
   
       cdiag(267) = 'VTRAC1  '  
       tdiag(267)  = 'Merid Mass-Weighted Transp of Tracer 1 (m-kg/s-kg)'  
       udiag(267) = 'm-kg/s-kg       '  
       gdiag(267) = 'VV   266MR      '  
   
       cdiag(268) = 'WTRAC1  '  
       tdiag(268)  = 'Vert  Mass-Weighted Transp of Tracer 1 (m-kg/s-kg)'  
       udiag(268) = 'm-kg/s-kg       '  
       gdiag(268) = 'WM      MR      '  
   
       cdiag(269) = 'UTRAC2  '  
       tdiag(269)  = 'Zonal Mass-Weighted Transp of Tracer 2 (m-kg/s-kg)'  
       udiag(269) = 'm-kg/s-kg       '  
       gdiag(269) = 'UU   270MR      '  
   
       cdiag(270) = 'VTRAC2  '  
       tdiag(270)  = 'Merid Mass-Weighted Transp of Tracer 2 (m-kg/s-kg)'  
       udiag(270) = 'm-kg/s-kg       '  
       gdiag(270) = 'VV   269MR      '  
   
       cdiag(271) = 'WTRAC2  '  
       tdiag(271)  = 'Vert  Mass-Weighted Transp of Tracer 2 (m-kg/s-kg)'  
       udiag(271) = 'm-kg/s-kg       '  
       gdiag(271) = 'WM      MR      '  
   
       cdiag(272) = 'UTRAC3  '  
       tdiag(272)  = 'Zonal Mass-Weighted Transp of Tracer 3 (m-kg/s-kg)'  
       udiag(272) = 'm-kg/s-kg       '  
       gdiag(272) = 'UU   273MR      '  
   
       cdiag(273) = 'VTRAC3  '  
       tdiag(273)  = 'Merid Mass-Weighted Transp of Tracer 3 (m-kg/s-kg)'  
       udiag(273) = 'm-kg/s-kg       '  
       gdiag(273) = 'VV   272MR      '  
   
       cdiag(274) = 'WTRAC3  '  
       tdiag(274)  = 'Vert  Mass-Weighted Transp of Tracer 3 (m-kg/s-kg)'  
       udiag(274) = 'm-kg/s-kg       '  
       gdiag(274) = 'WM      MR      '  
   
       cdiag(275) = 'UTRAC4  '  
       tdiag(275)  = 'Zonal Mass-Weighted Transp of Tracer 4 (m-kg/s-kg)'  
       udiag(275) = 'm-kg/s-kg       '  
       gdiag(275) = 'UU   276MR      '  
   
       cdiag(276) = 'VTRAC4  '  
       tdiag(276)  = 'Merid Mass-Weighted Transp of Tracer 4 (m-kg/s-kg)'  
       udiag(276) = 'm-kg/s-kg       '  
       gdiag(276) = 'VV   275MR      '  
   
       cdiag(277) = 'WTRAC4  '  
       tdiag(277)  = 'Vert  Mass-Weighted Transp of Tracer 4 (m-kg/s-kg)'  
       udiag(277) = 'm-kg/s-kg       '  
       gdiag(277) = 'WM      MR      '  
   
       cdiag(278) = 'UTRAC5  '  
       tdiag(278)  = 'Zonal Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'  
       udiag(278) = 'm-kg/s-kg       '  
       gdiag(278) = 'UU   279MR      '  
   
       cdiag(279) = 'VTRAC5  '  
       tdiag(279)  = 'Merid Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'  
       udiag(279) = 'm-kg/s-kg       '  
       gdiag(279) = 'VV   278MR      '  
   
       cdiag(280) = 'WTRAC5  '  
       tdiag(280)  = 'Vert  Mass-Weighted Transp of Tracer 5 (m-kg/s-kg)'  
       udiag(280) = 'm-kg/s-kg       '  
       gdiag(280) = 'WM      MR      '  
   
       cdiag(281) = 'TRAC1   '  
       tdiag(281)  = 'Mass-Weighted Tracer 1 ()'  
       udiag(281) = 'kg/kg           '  
       gdiag(281) = 'SM P    MR      '  
   
       cdiag(282) = 'TRAC2   '  
       tdiag(282)  = 'Mass-Weighted Tracer 2 ()'  
       udiag(282) = 'kg/kg           '  
       gdiag(282) = 'SM P    MR      '  
   
       cdiag(283) = 'TRAC3   '  
       tdiag(283)  = 'Mass-Weighted Tracer 3 ()'  
       udiag(283) = 'kg/kg           '  
       gdiag(283) = 'SM P    MR      '  
   
       cdiag(284) = 'TRAC4   '  
       tdiag(284)  = 'Mass-Weighted Tracer 4 ()'  
       udiag(284) = 'kg/kg           '  
       gdiag(284) = 'SM P    MR      '  
   
       cdiag(285) = 'TRAC5   '  
       tdiag(285)  = 'Mass-Weighted Tracer 5 ()'  
       udiag(285) = 'kg/kg           '  
       gdiag(285) = 'SM P    MR      '  
   
       cdiag(286) = 'DICBIOA '  
       tdiag(286)  = 'Biological Productivity (mol/m3/s)'  
       udiag(286) = 'mol/m3/sec      '  
       gdiag(286) = 'SM P    MR      '  
   
       cdiag(287) = 'DICCARB '  
       tdiag(287)  = 'Carbonate chg-biol prod and remin (mol eq/m3/s)'  
       udiag(287) = 'mol eq/m3/sec   '  
       gdiag(287) = 'SM P    MR      '  
   
       cdiag(288) = 'DICTFLX '  
       tdiag(288)  = 'Tendency of DIC due to air-sea exch (mol/m3/s)'  
       udiag(288) = 'mol/m3/sec      '  
       gdiag(288) = 'SM P    L1      '  
   
       cdiag(289) = 'DICOFLX '  
       tdiag(289)  = 'Tendency of O2 due to air-sea exch (mol/m3/s)'  
       udiag(289) = 'mol/m3/sec      '  
       gdiag(289) = 'SM P    L1      '  
   
       cdiag(290) = 'DICCFLX '  
       tdiag(290)  = 'Flux of CO2 - air-sea exch (mol/m2/s)'  
       udiag(290) = 'mol/m2/sec      '  
       gdiag(290) = 'SM P    L1      '  
   
       cdiag(291) = 'DICPCO2 '  
       tdiag(291)  = 'Partial Pressure of CO2 (atm)'  
       udiag(291) = 'atm             '  
       gdiag(291) = 'SM P    M1      '  
   
       cdiag(292) = 'DICPHAV '  
       tdiag(292)  = 'pH (dimensionless)'  
       udiag(292) = 'dimensionless   '  
       gdiag(292) = 'SM P    M1      '  
   
       cdiag(293) = 'DTCONV  '  
       tdiag(293)  = 'Temp Change due to Convection (K/sec)'  
       udiag(293) = 'k/sec           '  
       gdiag(293) = 'SM      MR      '  
   
       cdiag(294) = 'DQCONV  '  
       tdiag(294)  = 'Humidity Change due to Convection (g/kg/sec)'  
       udiag(294) = 'g/kg/sec        '  
       gdiag(294) = 'SM      MR      '  
   
       cdiag(295) = 'RELHUM  '  
       tdiag(295)  = 'Relative Humidity (fraction)'  
       udiag(295) = 'Fraction        '  
       gdiag(295) = 'SM      MR      '  
   
       cdiag(296) = 'PRECLS  '  
       tdiag(296)  = 'Large Scale Precipitation (g/m2/sec)'  
       udiag(296) = 'g/m2/sec        '  
       gdiag(296) = 'SM      M1      '  
   
       cdiag(297) = 'ENPREC  '  
       tdiag(297)  = 'Energy of Precipitation (snow, rain Temp) in (J/g)'  
       udiag(297) = 'J/g             '  
       gdiag(297) = 'SM      M1      '  
   
       cdiag(298) = 'VISCA4  '  
       tdiag(298)  = 'Biharmonic Viscosity Coefficient in (m4/s)        '  
       udiag(298) = 'm4/sec          '  
       gdiag(298) = 'SM      MR      '  
   
       cdiag(299) = 'VISCAH  '  
       tdiag(299)  = 'Harmonic Viscosity Coefficient in (m2/s)        '  
       udiag(299) = 'm2/sec          '  
       gdiag(299) = 'SM      MR      '  
1338    
1339  C-    set the total number of available diagnostics  c---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
       ndiagt = 299  
   
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
1340    
1341        RETURN        RETURN
1342        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22