/[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.8 by jmc, Fri Jan 28 01:06:12 2005 UTC revision 1.24 by molod, Fri Jan 13 22:38:46 2006 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 84  C--------------------------------------- Line 85  C---------------------------------------
85        IF ( fluidIsAir ) THEN        IF ( fluidIsAir ) THEN
86          tUnit4c= 'K   '          tUnit4c= 'K   '
87          sUnit4c= 'g/kg'          sUnit4c= 'g/kg'
88    #ifdef ALLOW_FIZHI
89          IF(useFIZHI)THEN
90            sUnit4c= 'kg/kg'
91          ENDIF
92    #endif /* ALLOW_FIZHI */
93        ELSE        ELSE
94          tUnit4c= 'degC'          tUnit4c= 'degC'
95          sUnit4c= 'psu '          sUnit4c= 'psu '
# Line 100  C-    state variables of the main code ( Line 106  C-    state variables of the main code (
106       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
107    
108        diagName  = 'ETANSQ  '        diagName  = 'ETANSQ  '
109        diagTitle = 'Square of Perturbation of Sfc (Pa^2,m^2)'        diagTitle = 'Square of Perturbation of Sfc position (r_unit^2)'
110        diagUnits = DIAGS_MK_UNITS( rUnit2c//'^2', myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c//'^2', myThid )
111        diagCode  = 'SM      M1      '        diagCode  = 'SM      M1      '
112        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
# Line 120  C-    state variables of the main code ( Line 126  C-    state variables of the main code (
126        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
127       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
128    
129    c     diagName  = 'SST     '
130    c     diagTitle = 'Sea Surface Temperature (degC,K)'
131    c     diagUnits = DIAGS_MK_UNITS( tUnit4c, myThid )
132    c     diagCode  = 'SM      M1      '
133    c     CALL DIAGNOSTICS_ADD2LIST( diagNum,
134    c    I          diagName, diagCode, diagUnits, diagTitle, myThid )
135    
136        diagName  = 'SALT    '        diagName  = 'SALT    '
137        diagTitle = 'Salt or Water Vapor mixing ratio (g/kg)'        diagTitle = 'Salt or Water Vapor mixing ratio'
138          diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
139          diagCode  = 'SM      MR      '
140          CALL DIAGNOSTICS_ADD2LIST( diagNum,
141         I          diagName, diagCode, diagUnits, diagTitle, myThid )
142    
143          diagName  = 'RELHUM  '
144          diagTitle = 'Relative Humidity               '
145          diagUnits = 'percent         '
146          diagCode  = 'SM      MR      '
147          CALL DIAGNOSTICS_ADD2LIST( diagNum,
148         I          diagName, diagCode, diagUnits, diagTitle, myThid )
149    
150    c     diagName  = 'SSS     '
151    c     diagTitle = 'Sea Surface Salinity '
152    c     diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
153    c     diagCode  = 'SM      M1      '
154    c     CALL DIAGNOSTICS_ADD2LIST( diagNum,
155    c    I          diagName, diagCode, diagUnits, diagTitle, myThid )
156    
157          diagName  = 'SALTanom'
158          diagTitle = 'Salt anomaly (=SALT-35; g/kg)'
159        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )        diagUnits = DIAGS_MK_UNITS( sUnit4c, myThid )
160        diagCode  = 'SM      MR      '        diagCode  = 'SM      MR      '
161        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
# Line 162  C-    state variables of the main code ( Line 196  C-    state variables of the main code (
196        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
197       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
198    
199          diagName  = 'SALTSQan'
200          diagTitle = 'Square of Salt anomaly (=(SALT-35)^2 (g^2/kg^2)'
201          diagUnits = DIAGS_MK_UNITS( '('//sUnit4c//')^2', myThid )
202          diagCode  = 'SM      MR      '
203          CALL DIAGNOSTICS_ADD2LIST( diagNum,
204         I          diagName, diagCode, diagUnits, diagTitle, myThid )
205    
206        diagName  = 'UVELSQ  '        diagName  = 'UVELSQ  '
207        diagTitle = 'Square of Zonal Comp of Velocity (m^2/s^2)'        diagTitle = 'Square of Zonal Comp of Velocity (m^2/s^2)'
208        diagUnits = 'm^2/s^2         '        diagUnits = 'm^2/s^2         '
# Line 197  C-    state variables of the main code ( Line 238  C-    state variables of the main code (
238        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
239       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
240    
241          diagName  = 'WU_VEL  '
242          diagTitle = 'Vertical Transport of Zonal Momentum (m^2/s^2)'
243          diagUnits = DIAGS_MK_UNITS( 'm.'//rUnit2c//'/s^2', myThid )
244          diagCode  = 'WU      LR      '
245          CALL DIAGNOSTICS_ADD2LIST( diagNum,
246         I          diagName, diagCode, diagUnits, diagTitle, myThid )
247    
248          diagName  = 'WV_VEL  '
249          diagTitle ='Vertical Transport of Meridional Momentum (m^2/s^2)'
250          diagUnits = DIAGS_MK_UNITS( 'm.'//rUnit2c//'/s^2', myThid )
251          diagCode  = 'WV      LR      '
252          CALL DIAGNOSTICS_ADD2LIST( diagNum,
253         I          diagName, diagCode, diagUnits, diagTitle, myThid )
254    
255        diagName  = 'UVELMASS'        diagName  = 'UVELMASS'
256        diagTitle = 'Zonal Mass-Weighted Comp of Velocity (m/s)'        diagTitle = 'Zonal Mass-Weighted Comp of Velocity (m/s)'
# Line 215  C-    state variables of the main code ( Line 269  C-    state variables of the main code (
269        diagName  = 'WVELMASS'        diagName  = 'WVELMASS'
270        diagTitle = 'Vertical Mass-Weighted Comp of Velocity (m/s)'        diagTitle = 'Vertical Mass-Weighted Comp of Velocity (m/s)'
271        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS( rUnit2c//'/s', myThid )
272        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
273        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
274       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
275    
# Line 236  C-    state variables of the main code ( Line 290  C-    state variables of the main code (
290        diagName  = 'WTHMASS '        diagName  = 'WTHMASS '
291        diagTitle = 'Vertical Mass-Weight Transp of Pot Temp (K.m/s)'        diagTitle = 'Vertical Mass-Weight Transp of Pot Temp (K.m/s)'
292        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )
293        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
294        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
295       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
296    
297        diagName  = 'USLTMASS'        diagName  = 'USLTMASS'
298        diagTitle = 'Zonal Mass-Weight Transp of Salt (g/kg.m/s)'        diagTitle = 'Zonal Mass-Weight Transp of Salt '
299        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.m/s', myThid )        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.m/s', myThid )
300        WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '        WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
301        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
302       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
303    
304        diagName  = 'VSLTMASS'        diagName  = 'VSLTMASS'
305        diagTitle = 'Meridional Mass-Weight Transp of Salt (g/kg.m/s)'        diagTitle = 'Meridional Mass-Weight Transp of Salt'
306        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.m/s', myThid )        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.m/s', myThid )
307        WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '        WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
308        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
309       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
310    
311        diagName  = 'WSLTMASS'        diagName  = 'WSLTMASS'
312        diagTitle = 'Vertical Mass-Weight Transp of Salt (g/kg.m/s)'        diagTitle = 'Vertical Mass-Weight Transp of Salt '
313        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )
314        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
315        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
316       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
317    
# Line 278  C-    state variables of the main code ( Line 332  C-    state variables of the main code (
332        diagName  = 'WVELTH  '        diagName  = 'WVELTH  '
333        diagTitle = 'Vertical Transp of Pot Temp (K.m/s)'        diagTitle = 'Vertical Transp of Pot Temp (K.m/s)'
334        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(tUnit4c//'.'//rUnit2c//'/s', myThid )
335        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
336        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
337       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
338    
339        diagName  = 'UVELSLT '        diagName  = 'UVELSLT '
340        diagTitle = 'Zonal Transp of Salt (g/kg.m/s)'        diagTitle = 'Zonal Transp of Salt '
341        diagUnits = DIAGS_MK_UNITS( sUnit4c//'.m/s', myThid )        diagUnits = DIAGS_MK_UNITS( sUnit4c//'.m/s', myThid )
342        WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '        WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
343        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
344       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
345    
346        diagName  = 'VVELSLT '        diagName  = 'VVELSLT '
347        diagTitle = 'Meridional Transp of Salt (g/kg.m/s)'        diagTitle = 'Meridional Transp of Salt '
348        diagUnits = DIAGS_MK_UNITS( sUnit4c//'.m/s', myThid )        diagUnits = DIAGS_MK_UNITS( sUnit4c//'.m/s', myThid )
349        WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '        WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
350        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
351       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
352    
353        diagName  = 'WVELSLT '        diagName  = 'WVELSLT '
354        diagTitle = 'Vertical Transp of Salt (g/kg.m/s)'        diagTitle = 'Vertical Transp of Salt '
355        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )        diagUnits = DIAGS_MK_UNITS(sUnit4c//'.'//rUnit2c//'/s', myThid )
356        diagCode  = 'WM      MR      '        diagCode  = 'WM      LR      '
357          CALL DIAGNOSTICS_ADD2LIST( diagNum,
358         I          diagName, diagCode, diagUnits, diagTitle, myThid )
359    
360          diagName  = 'UVELPHI '
361          diagTitle = 'Zonal Transp of Geopotential Height (m2/s2.m/s)'
362          diagUnits = 'm^3/s^3         '
363          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
364          CALL DIAGNOSTICS_ADD2LIST( diagNum,
365         I          diagName, diagCode, diagUnits, diagTitle, myThid )
366    
367          diagName  = 'VVELPHI '
368          diagTitle = 'Meridional Transp of Geopotential Height (m2/s2.m/s)'
369          diagUnits = 'm^3/s^3         '
370          WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
371        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
372       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
373    
# Line 312  C---+----1----+----2----+----3----+----4 Line 380  C---+----1----+----2----+----3----+----4
380        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
381       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
382    
383          diagName  = 'RHOANOSQ'
384          diagTitle = 'Square of Density Anomaly (=(Rho-rhoConst)^2)'
385          diagUnits = 'kg^2/m^6          '
386          diagCode  = 'SM      MR      '
387          CALL DIAGNOSTICS_ADD2LIST( diagNum,
388         I          diagName, diagCode, diagUnits, diagTitle, myThid )
389    
390          diagName  = 'URHOMASS'
391          diagTitle = 'Zonal Transport of Density'
392          diagUnits = 'kg/m^2/s        '
393          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
394          CALL DIAGNOSTICS_ADD2LIST( diagNum,
395         I          diagName, diagCode, diagUnits, diagTitle, myThid )
396    
397          diagName  = 'VRHOMASS'
398          diagTitle = 'Meridional Transport of Density'
399          diagUnits = 'kg/m^2/s        '
400          WRITE(diagCode,'(A,I3.3,A)') 'VV   ',diagNum,'MR      '
401          CALL DIAGNOSTICS_ADD2LIST( diagNum,
402         I          diagName, diagCode, diagUnits, diagTitle, myThid )
403    
404          diagName  = 'WRHOMASS'
405          diagTitle = 'Vertical Transport of Potential Density'
406          diagUnits = 'kg/m^2/s        '
407          diagCode  = 'WM      LR      '
408          CALL DIAGNOSTICS_ADD2LIST( diagNum,
409         I          diagName, diagCode, diagUnits, diagTitle, myThid )
410    
411        diagName  = 'PHIHYD  '        diagName  = 'PHIHYD  '
412        diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential'        diagTitle = 'Hydrostatic (ocean) pressure / (atmos) geo-Potential'
413        diagUnits = 'm^2/s^2         '        diagUnits = 'm^2/s^2         '
# Line 319  C---+----1----+----2----+----3----+----4 Line 415  C---+----1----+----2----+----3----+----4
415        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
416       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
417    
418          diagName  = 'PHIHYDSQ'
419          diagTitle = 'Square of Hyd. (ocean) press / (atmos) geoPotential'
420          diagUnits = 'm^4/s^4         '
421          diagCode  = 'SM      MR      '
422          CALL DIAGNOSTICS_ADD2LIST( diagNum,
423         I          diagName, diagCode, diagUnits, diagTitle, myThid )
424    
425        diagName  = 'PHIBOT  '        diagName  = 'PHIBOT  '
426        diagTitle = 'ocean bottom pressure / top. atmos geo-Potential'        diagTitle = 'ocean bottom pressure / top. atmos geo-Potential'
427        diagUnits = 'm^2/s^2         '        diagUnits = 'm^2/s^2         '
# Line 341  C---+----1----+----2----+----3----+----4 Line 444  C---+----1----+----2----+----3----+----4
444        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
445       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
446    
447  C--   Momentum terms:        diagName  = 'CONVADJ '
448        diagName  = 'VISCA4  '        diagTitle = 'Convective Adjustment Index [0-1] '
449        diagTitle = 'Biharmonic Viscosity Coefficient in (m4/s)        '        diagUnits = 'fraction        '
450        diagUnits = 'm^4/s           '        diagCode  = 'SM      LR      '
       diagCode  = 'SM      MR      '  
       CALL DIAGNOSTICS_ADD2LIST( diagNum,  
      I          diagName, diagCode, diagUnits, diagTitle, myThid )  
   
       diagName  = 'VISCAH  '  
       diagTitle = 'Harmonic Viscosity Coefficient in (m2/s)        '  
       diagUnits = 'm^2/s           '  
       diagCode  = 'SM      MR      '  
451        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
452       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
453    
# Line 406  C--   surface fluxes: Line 501  C--   surface fluxes:
501        CALL DIAGNOSTICS_ADD2LIST( diagNum,        CALL DIAGNOSTICS_ADD2LIST( diagNum,
502       I          diagName, diagCode, diagUnits, diagTitle, myThid )       I          diagName, diagCode, diagUnits, diagTitle, myThid )
503    
504    #ifdef SHORTWAVE_HEATING
505          diagName  = 'SWFLUX  '
506          diagTitle = 'net upward SW radiation, >0 increases theta     '
507          diagUnits = 'W/m^2           '
508          diagCode  = 'SM      U1      '
509          CALL DIAGNOSTICS_ADD2LIST( diagNum,
510         I          diagName, diagCode, diagUnits, diagTitle, myThid )
511    #endif
512    
513  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
514          diagName  = 'PRESSURE'
515          diagTitle = 'Atmospheric Pressure (Pa)     '
516          diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
517          diagCode  = 'SM      MR      '
518          CALL DIAGNOSTICS_ADD2LIST( diagNum,
519         I          diagName, diagCode, diagUnits, diagTitle, myThid )
520    
521          diagName  = 'RSURF   '
522          diagTitle = 'Surface (Pressure, Height) (Pa,m)'
523          diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
524          diagCode  = 'SM      M1      '
525          CALL DIAGNOSTICS_ADD2LIST( diagNum,
526         I          diagName, diagCode, diagUnits, diagTitle, myThid )
527    
528          diagName  = 'TOTUTEND'
529          diagTitle = 'Tendency of Zonal Component of Velocity (m/s^2)'
530          diagUnits = 'm/s^2           '
531          WRITE(diagCode,'(A,I3.3,A)') 'UU   ',diagNum+2,'MR      '
532          CALL DIAGNOSTICS_ADD2LIST( diagNum,
533         I          diagName, diagCode, diagUnits, diagTitle, myThid )
534    
535          diagName  = 'TOTVTEND'
536          diagTitle = 'Tendency of Meridional Component of Velocity (m/s^2)'
537          diagUnits = 'm/s^2           '
538          WRITE(diagCode,'(A,I3.3,A)') 'VV   ', diagNum ,'MR      '
539          CALL DIAGNOSTICS_ADD2LIST( diagNum,
540         I          diagName, diagCode, diagUnits, diagTitle, myThid )
541    
542          diagName  = 'TOTTEND '
543          diagTitle = 'Tendency of Potential Temperature (degC,K)'
544          diagUnits = 'deg K/sec'
545          diagCode  = 'SM      MR      '
546          CALL DIAGNOSTICS_ADD2LIST( diagNum,
547         I          diagName, diagCode, diagUnits, diagTitle, myThid )
548    
549          diagName  = 'TOTSTEND'
550          diagTitle = 'Tendency of Salt or Water Vapor mixing ratio'
551          diagUnits = 'kg/kg-sec'
552          diagCode  = 'SM      MR      '
553          CALL DIAGNOSTICS_ADD2LIST( diagNum,
554         I          diagName, diagCode, diagUnits, diagTitle, myThid )
555    
556    
557        RETURN        RETURN
558        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22