/[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.15 by molod, Mon May 23 19:52:02 2005 UTC revision 1.18 by heimbach, Fri Jul 29 15:50:53 2005 UTC
# Line 497  C--   surface fluxes: Line 497  C--   surface fluxes:
497        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
498       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
499    
500    #ifdef SHORTWAVE_HEATING
501          diagName  = 'SWFLUX  '
502          diagTitle = 'net upward SW radiation, >0 increases theta     '
503          diagUnits = 'W/m^2           '
504          diagCode  = 'SM      U1      '
505          CALL DIAGNOSTICS_ADD2LIST( diagNum,
506         I          diagName, diagCode, diagUnits, diagTitle, myThid )
507    #endif
508    
509  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
510          diagName  = 'PRESSURE'
511          diagTitle = 'Atmospheric Pressure (Pa)     '
512          diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
513          diagCode  = 'SM      MR      '
514          CALL DIAGNOSTICS_ADD2LIST( diagNum,
515         I          diagName, diagCode, diagUnits, diagTitle, myThid )
516    
517          diagName  = 'RSURF   '
518          diagTitle = 'Surface (Pressure, Height) (Pa,m)'
519          diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
520          diagCode  = 'SM      M1      '
521          CALL DIAGNOSTICS_ADD2LIST( diagNum,
522         I          diagName, diagCode, diagUnits, diagTitle, myThid )
523    
524    
525        RETURN        RETURN
526        END        END
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22