/[MITgcm]/MITgcm/pkg/exf/exf_diagnostics_init.F
ViewVC logotype

Annotation of /MITgcm/pkg/exf/exf_diagnostics_init.F

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

Revision 1.2 - (hide annotations) (download)
Tue Jun 28 22:05:49 2005 UTC (19 years ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, checkpoint57v_post, checkpoint57m_post, checkpoint57s_post, checkpoint57k_post, checkpoint57y_post, checkpoint57y_pre, checkpoint57r_post, checkpoint58, checkpoint57x_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint57q_post, checkpoint57z_post, checkpoint57j_post, checkpoint58b_post, checkpoint57l_post
Changes since 1.1: +120 -27 lines 
Extended diagnostics output for EXF
o now includes all EXF variables
o hs, hl moved to common block
o separate S/R for diagnostics, called after ctrl vector is added
o name changed for EXFsw -> EXFswnet, EXFlw -> EXFlwnet
1 heimbach 1.2 C $Header: /u/gcmpack/MITgcm/pkg/exf/exf_diagnostics_init.F,v 1.1 2005/05/05 16:41:54 dimitri Exp $
2 dimitri 1.1 C $Name: $
3    
4     #include "EXF_OPTIONS.h"
5    
6     CBOP
7     C !ROUTINE: EXF_DIAGNOSTICS_INIT
8     C !INTERFACE:
9     SUBROUTINE EXF_DIAGNOSTICS_INIT( myThid )
10    
11     C !DESCRIPTION: \bv
12     C *==========================================================*
13     C | SUBROUTINE EXF_DIAGNOSTICS_INIT
14     C | o Routine to initialize list of all available diagnostics
15     C | for EXF package
16     C *==========================================================*
17     C \ev
18     C !USES:
19     IMPLICIT NONE
20    
21     C === Global variables ===
22     #include "EEPARAMS.h"
23    
24     C !INPUT/OUTPUT PARAMETERS:
25     C === Routine arguments ===
26     C myThid :: my Thread Id number
27     INTEGER myThid
28     CEOP
29    
30     #ifdef ALLOW_DIAGNOSTICS
31     C !LOCAL VARIABLES:
32     C === Local variables ===
33     C diagNum :: diagnostics number in the (long) list of available diag.
34     C diagName :: local short name (8c) of a diagnostics
35     C diagCode :: local parser field with characteristics of the diagnostics
36     C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
37     C diagUnits :: local string (16c): physical units of a diagnostic field
38     C diagTitle :: local string (80c): description of field in diagnostic
39     INTEGER diagNum
40     CHARACTER*8 diagName
41     CHARACTER*16 diagCode
42     CHARACTER*16 diagUnits
43     CHARACTER*(80) diagTitle
44    
45     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
46    
47 heimbach 1.2 diagName = 'EXFhs '
48     diagTitle = 'Sensible heat flux into ocean, >0 increases theta'
49     diagUnits = 'W/m^2 '
50     diagCode = 'SM U1 '
51     CALL DIAGNOSTICS_ADD2LIST( diagNum,
52     I diagName, diagCode, diagUnits, diagTitle, myThid )
53    
54     diagName = 'EXFhl '
55     diagTitle = 'Latent heat flux into ocean, >0 increases theta'
56     diagUnits = 'W/m^2 '
57     diagCode = 'SM U1 '
58     CALL DIAGNOSTICS_ADD2LIST( diagNum,
59     I diagName, diagCode, diagUnits, diagTitle, myThid )
60    
61     diagName = 'EXFlwnet'
62     diagTitle = 'Net upward longwave radiation, >0 decreases theta'
63     diagUnits = 'W/m^2 '
64     diagCode = 'SM U1 '
65     CALL DIAGNOSTICS_ADD2LIST( diagNum,
66     I diagName, diagCode, diagUnits, diagTitle, myThid )
67    
68     diagName = 'EXFswnet'
69     diagTitle = 'Net upward shortwave radiation, >0 decreases theta'
70     diagUnits = 'W/m^2 '
71     diagCode = 'SM U1 '
72     CALL DIAGNOSTICS_ADD2LIST( diagNum,
73     I diagName, diagCode, diagUnits, diagTitle, myThid )
74    
75     diagName = 'EXFlwdn '
76     diagTitle = 'Downward longwave radiation, >0 increases theta'
77     diagUnits = 'W/m^2 '
78     diagCode = 'SM U1 '
79     CALL DIAGNOSTICS_ADD2LIST( diagNum,
80     I diagName, diagCode, diagUnits, diagTitle, myThid )
81    
82     diagName = 'EXFswdn '
83     diagTitle = 'Downward shortwave radiation, >0 increases theta'
84     diagUnits = 'W/m^2 '
85     diagCode = 'SM U1 '
86     CALL DIAGNOSTICS_ADD2LIST( diagNum,
87     I diagName, diagCode, diagUnits, diagTitle, myThid )
88    
89     diagName = 'EXFqnet '
90     diagTitle = 'Net upward heat flux (turb+rad), >0 decreases theta'
91     diagUnits = 'W/m^2 '
92     diagCode = 'SM U1 '
93     CALL DIAGNOSTICS_ADD2LIST( diagNum,
94     I diagName, diagCode, diagUnits, diagTitle, myThid )
95    
96     C-- surface fluxes:
97     diagName = 'EXFtaux '
98     diagTitle = 'zonal surface wind stress, >0 increases uVel '
99     diagUnits = 'N/m^2 '
100     diagCode = 'SU U1 '
101     CALL DIAGNOSTICS_ADD2LIST( diagNum,
102     I diagName, diagCode, diagUnits, diagTitle, myThid )
103    
104     diagName = 'EXFtauy '
105     diagTitle = 'meridional surface wind stress, >0 increases vVel'
106     diagUnits = 'N/m^2 '
107     diagCode = 'SV U1 '
108     CALL DIAGNOSTICS_ADD2LIST( diagNum,
109     I diagName, diagCode, diagUnits, diagTitle, myThid )
110    
111     diagName = 'EXFuwind'
112     diagTitle = 'zonal 10-m wind speed, >0 increases uVel'
113     diagUnits = 'm/s '
114     diagCode = 'SM U1 '
115     CALL DIAGNOSTICS_ADD2LIST( diagNum,
116     I diagName, diagCode, diagUnits, diagTitle, myThid )
117    
118     diagName = 'EXFvwind'
119     diagTitle = 'meridional 10-m wind speed, >0 increases uVel'
120     diagUnits = 'm/s '
121     diagCode = 'SM U1 '
122     CALL DIAGNOSTICS_ADD2LIST( diagNum,
123 dimitri 1.1 I diagName, diagCode, diagUnits, diagTitle, myThid )
124    
125 heimbach 1.2 diagName = 'EXFatemp'
126     diagTitle = 'surface (2-m) air temperature'
127     diagUnits = 'degK '
128     diagCode = 'SM U1 '
129     CALL DIAGNOSTICS_ADD2LIST( diagNum,
130     I diagName, diagCode, diagUnits, diagTitle, myThid )
131    
132     diagName = 'EXFaqh '
133     diagTitle = 'surface (2-m) specific humidity'
134     diagUnits = 'kg/kg '
135     diagCode = 'SM U1 '
136     CALL DIAGNOSTICS_ADD2LIST( diagNum,
137     I diagName, diagCode, diagUnits, diagTitle, myThid )
138    
139     diagName = 'EXFevap '
140     diagTitle = 'evaporation, > 0 increases salinity'
141     diagUnits = 'm/s '
142     diagCode = 'SM U1 '
143     CALL DIAGNOSTICS_ADD2LIST( diagNum,
144     I diagName, diagCode, diagUnits, diagTitle, myThid )
145    
146     diagName = 'EXFpreci'
147     diagTitle = 'evaporation, > 0 decreases salinity'
148     diagUnits = 'm/s '
149     diagCode = 'SM U1 '
150     CALL DIAGNOSTICS_ADD2LIST( diagNum,
151     I diagName, diagCode, diagUnits, diagTitle, myThid )
152    
153     diagName = 'EXFempmr'
154     diagTitle = 'net upward freshwater flux, > 0 increases salinity'
155     diagUnits = 'm/s '
156     diagCode = 'SM U1 '
157     CALL DIAGNOSTICS_ADD2LIST( diagNum,
158     I diagName, diagCode, diagUnits, diagTitle, myThid )
159    
160     diagName = 'EXFpress'
161     diagTitle = 'atmospheric pressure field'
162     diagUnits = 'N/m^2 '
163     diagCode = 'SM U1 '
164     CALL DIAGNOSTICS_ADD2LIST( diagNum,
165     I diagName, diagCode, diagUnits, diagTitle, myThid )
166    
167    
168 dimitri 1.1 #endif /* ALLOW_DIAGNOSTICS */
169    
170     RETURN
171     END
  ViewVC Help
Powered by ViewVC 1.1.22