/[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.13 by dimitri, Wed May 11 02:33:28 2005 UTC revision 1.17 by molod, Mon Jul 11 18:34:17 2005 UTC
# Line 44  C                   &  1  &  levels = 1 Line 44  C                   &  1  &  levels = 1
44  C                   &  R  &  levels = Nr  \\  C                   &  R  &  levels = Nr  \\
45  C                   &  L  &  levels = MAX(Nr,NrPhys)  \\  C                   &  L  &  levels = MAX(Nr,NrPhys)  \\
46  C                   &  M  &  levels = MAX(Nr,NrPhys) - 1  \\  C                   &  M  &  levels = MAX(Nr,NrPhys) - 1  \\
47    C                   &  G  &  levels = Ground_level Number \\
48    C                   &  I  &  levels = sea-Ice_level Number \\
49  C       \end{tabular}  C       \end{tabular}
50  C     \end{center}  C     \end{center}
51    
# Line 51  C     !USES: Line 53  C     !USES:
53        IMPLICIT NONE        IMPLICIT NONE
54  #include "SIZE.h"  #include "SIZE.h"
55  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 c #include "EESUPPORT.h"  
56  #include "PARAMS.h"  #include "PARAMS.h"
57    
58  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 402  C---+----1----+----2----+----3----+----4 Line 403  C---+----1----+----2----+----3----+----4
403        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
404       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
405    
406          diagName  = 'PHIHYDSQ'
407          diagTitle = 'Square of Hyd. (ocean) press / (atmos) geoPotential'
408          diagUnits = 'm^4/s^4         '
409          diagCode  = 'SM      MR      '
410          CALL DIAGNOSTICS_ADD2LIST( diagNum,
411         I          diagName, diagCode, diagUnits, diagTitle, myThid )
412    
413        diagName  = 'PHIBOT  '        diagName  = 'PHIBOT  '
414        diagTitle = 'ocean bottom pressure / top. atmos geo-Potential'        diagTitle = 'ocean bottom pressure / top. atmos geo-Potential'
415        diagUnits = 'm^2/s^2         '        diagUnits = 'm^2/s^2         '
# Line 490  C--   surface fluxes: Line 498  C--   surface fluxes:
498       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
499    
500  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
501          diagName  = 'PRESSURE'
502          diagTitle = 'Atmospheric Pressure (Pa)     '
503          diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
504          diagCode  = 'SM      MR      '
505          CALL DIAGNOSTICS_ADD2LIST( diagNum,
506         I          diagName, diagCode, diagUnits, diagTitle, myThid )
507    
508          diagName  = 'RSURF   '
509          diagTitle = 'Surface (Pressure, Height) (Pa,m)'
510          diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
511          diagCode  = 'SM      M1      '
512          CALL DIAGNOSTICS_ADD2LIST( diagNum,
513         I          diagName, diagCode, diagUnits, diagTitle, myThid )
514    
515    
516        RETURN        RETURN
517        END        END
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22