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

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

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

revision 1.28 by jmc, Sun Nov 19 22:03:13 2006 UTC revision 1.31 by jmc, Thu May 31 18:22:00 2007 UTC
# Line 482  c     diagTitle = 'Square of ocean botto Line 482  c     diagTitle = 'Square of ocean botto
482        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
483       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
484    
485          diagName  = 'MXLDEPTH'
486          diagTitle = 'Mixed-Layer Depth (>0)'
487          diagUnits = 'm               '
488          diagCode  = 'SM      M1      '
489          CALL DIAGNOSTICS_ADD2LIST( diagNum,
490         I          diagName, diagCode, diagUnits, diagTitle, myThid )
491    
492        diagName  = 'DRHODR  '        diagName  = 'DRHODR  '
493        diagTitle = 'Stratification: d.Sigma/dr (kg/m3/r_unit)'        diagTitle = 'Stratification: d.Sigma/dr (kg/m3/r_unit)'
494        diagUnits = 'kg/m^4          '        diagUnits = 'kg/m^4          '
# Line 512  C--   surface fluxes: Line 519  C--   surface fluxes:
519        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
520       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
521    
522        diagName  = 'TFLUX   '        diagName  = 'atmPload'
523        diagTitle = 'net surface heat flux, >0 increases theta       '        diagTitle = 'Atmospheric pressure loading'
524          diagUnits = 'Pa              '
525          diagCode  = 'SM      U1      '
526          CALL DIAGNOSTICS_ADD2LIST( diagNum,
527         I          diagName, diagCode, diagUnits, diagTitle, myThid )
528    
529          diagName  = 'sIceLoad'
530          diagTitle = 'sea-ice loading (in Mass of ice+snow / area unit)'
531          diagUnits = 'kg/m^2          '
532          diagCode  = 'SM      U1      '
533          CALL DIAGNOSTICS_ADD2LIST( diagNum,
534         I          diagName, diagCode, diagUnits, diagTitle, myThid )
535    
536          diagName  = 'oceFWflx'
537          diagTitle = 'net surface Fresh-Water flux into the ocean'
538         &          //' (+=down), >0 decreases salinity'
539          diagUnits = 'kg/m^2/s        '
540          diagCode  = 'SM      U1      '
541          CALL DIAGNOSTICS_ADD2LIST( diagNum,
542         I          diagName, diagCode, diagUnits, diagTitle, myThid )
543    
544          diagName  = 'oceSflux'
545          diagTitle = 'net surface Salt flux into the ocean (+=down),'
546         &          //' >0 increases salinity'
547          diagUnits = 'g/m^2/s         '
548          diagCode  = 'SM      U1      '
549          CALL DIAGNOSTICS_ADD2LIST( diagNum,
550         I          diagName, diagCode, diagUnits, diagTitle, myThid )
551    
552          diagName  = 'oceQnet '
553          diagTitle = 'net surface heat flux into the ocean (+=down),'
554         &          //' >0 increases theta'
555        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
556        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
557        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
558       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
559    
560        diagName  = 'TRELAX  '        diagName  = 'oceQsw  '
561        diagTitle = 'surface temperature relaxation, >0 increases theta'        diagTitle = 'net Short-Wave radiation (+=down),'
562         &          //' >0 increases theta'
563        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
564        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
565        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
566       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
567    
568        diagName  = 'oceFreez'        diagName  = 'oceFreez'
569        diagTitle = 'heat from melt/freeze of sea-ice, >0 increases theta'        diagTitle = 'heating from freezing of sea-water (allowFreezing=T)'
570        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
571        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
572        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
573       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
574    
575        diagName  = 'SFLUX   '        diagName  = 'TRELAX  '
576        diagTitle = 'net surface salt flux, >0 increases salt'        diagTitle = 'surface temperature relaxation, >0 increases theta'
577        diagUnits = 'g/m^2/s         '        diagUnits = 'W/m^2           '
578        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
579        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
580       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
# Line 547  C--   surface fluxes: Line 586  C--   surface fluxes:
586        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
587       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
588    
589        diagName  = 'oceQsw  '        diagName  = 'surForcT'
590        diagTitle = 'net upward SW radiation, >0 increases theta'        diagTitle = 'model surface forcing for Temperature,'
591         &          //' >0 increases theta'
592          diagUnits = 'W/m^2           '
593          diagCode  = 'SM      U1      '
594          CALL DIAGNOSTICS_ADD2LIST( diagNum,
595         I          diagName, diagCode, diagUnits, diagTitle, myThid )
596    
597          diagName  = 'surForcS'
598          diagTitle = 'model surface forcing for Salinity,'
599         &          //' >0 increases salinity'
600          diagUnits = 'g/m^2/s         '
601          diagCode  = 'SM      U1      '
602          CALL DIAGNOSTICS_ADD2LIST( diagNum,
603         I          diagName, diagCode, diagUnits, diagTitle, myThid )
604    
605          diagName  = 'TFLUX   '
606          diagTitle = 'total heat flux (match heat-content variations),'
607         &          //' >0 increases theta'
608        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
609        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
610        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
611       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
612    
613          diagName  = 'SFLUX   '
614          diagTitle = 'total salt flux (match salt-content variations),'
615         &          //' >0 increases salt'
616          diagUnits = 'g/m^2/s         '
617          diagCode  = 'SM      U1      '
618          CALL DIAGNOSTICS_ADD2LIST( diagNum,
619         I          diagName, diagCode, diagUnits, diagTitle, myThid )
620    
621  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
622    
623        diagName  = 'RCENTER '        diagName  = 'RCENTER '
 C-    will be changed to an isomorphic name, such as:  
 c     diagName  = 'RCENTER '  
624  c     diagTitle = 'Cell-Center r-Position (Pressure, Height) (Pa,m)'  c     diagTitle = 'Cell-Center r-Position (Pressure, Height) (Pa,m)'
625        diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid )        diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid )
626        diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22