/[MITgcm]/MITgcm/pkg/fizhi/fizhi_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_diagnostics_init.F

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

revision 1.4 by molod, Fri Aug 19 00:30:18 2005 UTC revision 1.5 by molod, Tue Dec 13 21:24:01 2005 UTC
# Line 495  C---+----1----+----2----+----3----+----4 Line 495  C---+----1----+----2----+----3----+----4
495        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
496       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
497    
       diagName  = 'PSIGDOT '  
       diagTitle  = 'Pi-Weighted Vertical Sigma Velocity  (hPa/day)'  
       diagUnits  = 'hPa/day         '  
       diagCode  = 'SM      LL      '  
       CALL DIAGNOSTICS_ADD2LIST( diagNum,  
      I          diagName, diagCode, diagUnits, diagTitle, myThid )  
   
498        diagName  = 'DTLS    '        diagName  = 'DTLS    '
499        diagTitle  =        diagTitle  =
500       .  'Temperature Tendency due to Stratiform Processes  (K/day)'       .  'Temperature Tendency due to Stratiform Processes  (K/day)'
# Line 1598  C---+----1----+----2----+----3----+----4 Line 1591  C---+----1----+----2----+----3----+----4
1591        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
1592       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
1593    
1594          diagName  = 'CORRDU  '
1595          diagTitle  =
1596         .  'Zonal Wind Tendency Gridalt Correction Term (m/s/day)'
1597          diagUnits  = 'm/s/day         '
1598          WRITE(diagCode,'(A,I3.3,A)') 'UM   ',diagNum+2,'ML      '
1599          CALL DIAGNOSTICS_ADD2LIST( diagNum,
1600         I          diagName, diagCode, diagUnits, diagTitle, myThid )
1601    
1602          diagName  = 'CORRDV  '
1603          diagTitle  =
1604         .  'Meridional Wind Tendency Gridalt Correction Term (m/s/day)'
1605          diagUnits  = 'm/s/day         '
1606          WRITE(diagCode,'(A,I3.3,A)') 'VM   ', diagNum ,'ML      '
1607          CALL DIAGNOSTICS_ADD2LIST( diagNum,
1608         I          diagName, diagCode, diagUnits, diagTitle, myThid )
1609    
1610          diagName  = 'CORRDT  '
1611          diagTitle  =
1612         .  'Temperature Tendency Gridalt Correction Term (K/day)'
1613          diagUnits  = 'K/day           '
1614          diagCode  = 'SM      ML      '
1615          CALL DIAGNOSTICS_ADD2LIST( diagNum,
1616         I          diagName, diagCode, diagUnits, diagTitle, myThid )
1617    
1618          diagName  = 'CORRDQ  '
1619          diagTitle  =
1620         .  'Specific Humidity Tendency Gridalt Correction Term (g/kg/day)'
1621          diagUnits  = 'gram/kg/day     '
1622          diagCode  = 'SM      ML      '
1623          CALL DIAGNOSTICS_ADD2LIST( diagNum,
1624         I          diagName, diagCode, diagUnits, diagTitle, myThid )
1625    
1626  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
1627    
1628        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22