/[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.29 by jmc, Mon Nov 20 04:25:19 2006 UTC
# Line 512  C--   surface fluxes: Line 512  C--   surface fluxes:
512        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
513       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
514    
515        diagName  = 'TFLUX   '  #ifdef ATMOSPHERIC_LOADING
516        diagTitle = 'net surface heat flux, >0 increases theta       '        diagName  = 'atmPload'
517          diagTitle = 'Atmospheric pressure loading'
518          diagUnits = 'Pa              '
519          diagCode  = 'SM      U1      '
520          CALL DIAGNOSTICS_ADD2LIST( diagNum,
521         I          diagName, diagCode, diagUnits, diagTitle, myThid )
522    
523          diagName  = 'sIceLoad'
524          diagTitle = 'sea-ice loading (in Mass of ice+snow / area unit)'
525          diagUnits = 'kg/m^2          '
526          diagCode  = 'SM      U1      '
527          CALL DIAGNOSTICS_ADD2LIST( diagNum,
528         I          diagName, diagCode, diagUnits, diagTitle, myThid )
529    #endif /* ATMOSPHERIC_LOADING */
530    
531          diagName  = 'oceFWflx'
532          diagTitle = 'net surface Fresh-Water flux into the ocean'
533         &          //' (+=down), >0 decreases salinity'
534          diagUnits = 'kg/m^2/s        '
535          diagCode  = 'SM      U1      '
536          CALL DIAGNOSTICS_ADD2LIST( diagNum,
537         I          diagName, diagCode, diagUnits, diagTitle, myThid )
538    
539          diagName  = 'oceSflux'
540          diagTitle = 'net surface Salt flux into the ocean (+=down),'
541         &          //' >0 increases salinity'
542          diagUnits = 'g/m^2/s         '
543          diagCode  = 'SM      U1      '
544          CALL DIAGNOSTICS_ADD2LIST( diagNum,
545         I          diagName, diagCode, diagUnits, diagTitle, myThid )
546    
547          diagName  = 'oceQnet '
548          diagTitle = 'net surface heat flux into the ocean (+=down),'
549         &          //' >0 increases theta'
550        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
551        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
552        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
553       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
554    
555        diagName  = 'TRELAX  '        diagName  = 'oceQsw  '
556        diagTitle = 'surface temperature relaxation, >0 increases theta'        diagTitle = 'net Short-Wave radiation (+=down),'
557         &          //' >0 increases theta'
558        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
559        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
560        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
561       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
562    
563        diagName  = 'oceFreez'        diagName  = 'oceFreez'
564        diagTitle = 'heat from melt/freeze of sea-ice, >0 increases theta'        diagTitle = 'heating from freezing of sea-water (allowFreezing=T)'
565        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
566        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
567        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
568       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
569    
570        diagName  = 'SFLUX   '        diagName  = 'TRELAX  '
571        diagTitle = 'net surface salt flux, >0 increases salt'        diagTitle = 'surface temperature relaxation, >0 increases theta'
572        diagUnits = 'g/m^2/s         '        diagUnits = 'W/m^2           '
573        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
574        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
575       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
# Line 547  C--   surface fluxes: Line 581  C--   surface fluxes:
581        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
582       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
583    
584        diagName  = 'oceQsw  '        diagName  = 'surForcT'
585        diagTitle = 'net upward SW radiation, >0 increases theta'        diagTitle = 'model surface forcing for Temperature,'
586         &          //' >0 increases theta'
587          diagUnits = 'W/m^2           '
588          diagCode  = 'SM      U1      '
589          CALL DIAGNOSTICS_ADD2LIST( diagNum,
590         I          diagName, diagCode, diagUnits, diagTitle, myThid )
591    
592          diagName  = 'surForcS'
593          diagTitle = 'model surface forcing for Salinity,'
594         &          //' >0 increases salinity'
595          diagUnits = 'g/m^2/s         '
596          diagCode  = 'SM      U1      '
597          CALL DIAGNOSTICS_ADD2LIST( diagNum,
598         I          diagName, diagCode, diagUnits, diagTitle, myThid )
599    
600          diagName  = 'TFLUX   '
601          diagTitle = 'total heat flux (match heat-content variations),'
602         &          //' >0 increases theta'
603        diagUnits = 'W/m^2           '        diagUnits = 'W/m^2           '
604        diagCode  = 'SM      U1      '        diagCode  = 'SM      U1      '
605        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
606       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
607    
608          diagName  = 'SFLUX   '
609          diagTitle = 'total salt flux (match salt-content variations),'
610         &          //' >0 increases salt'
611          diagUnits = 'g/m^2/s         '
612          diagCode  = 'SM      U1      '
613          CALL DIAGNOSTICS_ADD2LIST( diagNum,
614         I          diagName, diagCode, diagUnits, diagTitle, myThid )
615    
616  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
617    
618        diagName  = 'RCENTER '        diagName  = 'RCENTER '
 C-    will be changed to an isomorphic name, such as:  
 c     diagName  = 'RCENTER '  
619  c     diagTitle = 'Cell-Center r-Position (Pressure, Height) (Pa,m)'  c     diagTitle = 'Cell-Center r-Position (Pressure, Height) (Pa,m)'
620        diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid )        diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid )
621        diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22