/[MITgcm]/MITgcm/pkg/kpp/kpp_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_diagnostics_init.F

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

revision 1.2 by dimitri, Mon May 2 03:19:59 2005 UTC revision 1.3 by atn, Fri Dec 21 02:54:34 2007 UTC
# Line 93  C---+----1----+----2----+----3----+----4 Line 93  C---+----1----+----2----+----3----+----4
93          CALL DIAGNOSTICS_ADD2LIST( diagNum,          CALL DIAGNOSTICS_ADD2LIST( diagNum,
94       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
95    
96            diagName  = 'KPPdbsfc'
97            diagTitle = 'Buoyancy difference with respect to surface'
98            diagUnits = 'm/s^2           '
99            diagCode  = 'SM P    UR      '
100            CALL DIAGNOSTICS_ADD2LIST( diagNum,
101         I          diagName, diagCode, diagUnits, diagTitle, myThid )
102    
103            diagName  = 'KPPbfsfc'
104            diagTitle = 'Bo+radiation absorbed to d=hbf*hbl + plume'
105            diagUnits = 'm^2/s^3         '
106            diagCode  = 'SM P    UR      '
107            CALL DIAGNOSTICS_ADD2LIST( diagNum,
108         I          diagName, diagCode, diagUnits, diagTitle, myThid )
109    
110            diagName  = 'KPPbo   '
111            diagTitle = 'Surface turbulent buoyancy forcing'
112            diagUnits = 'm^2/s^3         '
113            diagCode  = 'SM P     1      '
114            CALL DIAGNOSTICS_ADD2LIST( diagNum,
115         I          diagName, diagCode, diagUnits, diagTitle, myThid )
116    
117            diagName  = 'KPPbosol'
118            diagTitle = 'surface radiative buoyancy forcing'
119            diagUnits = 'm^2/s^3         '
120            diagCode  = 'SM P     1      '
121            CALL DIAGNOSTICS_ADD2LIST( diagNum,
122         I          diagName, diagCode, diagUnits, diagTitle, myThid )
123    
124            diagName  = 'KPPdbloc'
125            diagTitle = 'Local delta buoyancy across interfaces'
126            diagUnits = 'm/s^2           '
127            diagCode  = 'SM P    UR      '
128            CALL DIAGNOSTICS_ADD2LIST( diagNum,
129         I          diagName, diagCode, diagUnits, diagTitle, myThid )
130    
131    #ifdef ALLOW_SALT_PLUME
132            diagName  = 'KPPpfrac'
133            diagTitle = 'Salt plume flux fraction penetrating mixing layer'
134            diagUnits = '                '
135            diagCode  = 'SM P     1      '
136            CALL DIAGNOSTICS_ADD2LIST( diagNum,
137         I          diagName, diagCode, diagUnits, diagTitle, myThid )
138    
139            diagName  = 'KPPboplm'
140            diagTitle = 'Surface haline buoyancy forcing'
141            diagUnits = 'm^2/s^3         '
142            diagCode  = 'SM P     1      '
143            CALL DIAGNOSTICS_ADD2LIST( diagNum,
144         I          diagName, diagCode, diagUnits, diagTitle, myThid )
145    #endif /* ALLOW_SALT_PLUME */
146    
147  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
148    
149        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22