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

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

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

Revision 1.8 - (hide annotations) (download)
Mon Oct 20 06:25:16 2003 UTC (20 years, 8 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint53f_post, checkpoint54a_pre, checkpoint55c_post, checkpoint53b_pre, checkpoint51l_post, checkpoint57m_post, checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint58e_post, checkpoint57v_post, checkpoint52n_post, checkpoint52j_post, checkpoint51o_pre, checkpoint57f_post, checkpoint52e_post, checkpoint57s_post, checkpoint51n_pre, checkpoint57j_post, checkpoint58b_post, checkpoint58m_post, checkpoint57b_post, checkpoint52d_pre, checkpoint53c_post, checkpoint53d_post, checkpoint57f_pre, checkpoint55d_pre, checkpoint57g_post, checkpoint57a_post, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57h_pre, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint52j_pre, checkpoint54a_post, branch-netcdf, checkpoint55h_post, checkpoint58n_post, checkpoint51r_post, checkpoint58x_post, checkpoint52b_pre, checkpoint57g_pre, checkpoint54b_post, checkpoint58h_post, checkpoint57e_post, checkpoint58w_post, checkpoint54d_post, checkpoint56c_post, checkpoint54e_post, checkpoint58j_post, checkpoint55b_post, checkpoint57h_post, checkpoint52m_post, checkpoint57y_pre, checkpoint55, checkpoint53a_post, checkpoint55a_post, checkpoint57c_pre, hrcube5, checkpoint53b_post, checkpoint57o_post, checkpoint55g_post, checkpoint57r_post, checkpoint51o_post, checkpoint57k_post, checkpoint57d_post, checkpoint55f_post, checkpoint57i_post, checkpoint51q_post, checkpoint52l_post, checkpoint52k_post, checkpoint58, checkpoint57a_pre, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint52d_post, checkpoint52a_post, checkpoint57h_done, checkpoint58f_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint57n_post, checkpoint52c_post, checkpoint58d_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, ecco_c52_e35, checkpoint58o_post, checkpoint57z_post, checkpoint54f_post, eckpoint57e_pre, checkpoint58c_post, checkpoint58k_post, checkpoint57c_post, checkpoint58u_post, checkpoint58y_post, checkpoint52a_pre, checkpoint58v_post, checkpoint51m_post, checkpoint51t_post, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint54c_post, checkpoint58p_post, checkpoint52i_post, checkpoint58t_post, checkpoint58q_post, checkpoint51p_post, checkpoint51n_post, checkpoint55i_post, checkpoint57l_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint56a_post, checkpoint51s_post, checkpoint55d_post
Branch point for: netcdf-sm0, branch-nonh, checkpoint51n_branch
Changes since 1.7: +17 -31 lines 
changes to pkg/cal and pkg/exf that allow and speed-up long integrations
1 dimitri 1.8 c $Header: /usr/local/gcmpack/MITgcm/pkg/exf/exf_clim_summary.F,v 1.7 2003/10/09 04:19:19 edhill Exp $
2 heimbach 1.1
3 edhill 1.7 #include "EXF_OPTIONS.h"
4 heimbach 1.1
5     subroutine exf_clim_summary(
6     I mythid
7     & )
8    
9     c ==================================================================
10     c SUBROUTINE exf_clim_summary
11     c ==================================================================
12     c
13     c o List all the settings of the external forcing.
14     c
15     c started: Ralf.Giering@FastOpt.de 25-Mai-2000
16 dimitri 1.5 c mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002
17 heimbach 1.1 c
18     c ==================================================================
19     c SUBROUTINE exf_clim_summary
20     c ==================================================================
21    
22     implicit none
23    
24     c == global variables ==
25    
26     #include "EEPARAMS.h"
27     #include "SIZE.h"
28     #include "cal.h"
29     #include "exf.h"
30 dimitri 1.6 #include "exf_param.h"
31 heimbach 1.1 #include "exf_clim_param.h"
32    
33     c == routine arguments ==
34    
35     c mythid - thread number for this instance of the routine.
36    
37     integer mythid
38    
39     c == local variables ==
40    
41 dimitri 1.4 #if defined(ALLOW_CLIMTEMP_RELAXATION) || \
42     defined(ALLOW_CLIMSALT_RELAXATION) || \
43     defined(ALLOW_CLIMSST_RELAXATION ) || \
44     defined(ALLOW_CLIMSSS_RELAXATION )
45 heimbach 1.1 integer il
46 dimitri 1.4 #endif
47 heimbach 1.1
48     character*(max_len_mbuf) msgbuf
49    
50     c == external ==
51    
52     integer ilnblnk
53     external ilnblnk
54    
55     c == end of interface ==
56    
57     write(msgbuf,'(a)')
58     &' '
59     call print_message( msgbuf, standardmessageunit,
60     & SQUEEZE_RIGHT , mythid)
61     write(msgbuf,'(a)')
62     &'// ======================================================='
63     call print_message( msgbuf, standardmessageunit,
64     & SQUEEZE_RIGHT , mythid)
65     write(msgbuf,'(a)')
66     &'// External forcing climatology configuration >>> START <<<'
67     call print_message( msgbuf, standardmessageunit,
68     & SQUEEZE_RIGHT , mythid)
69     write(msgbuf,'(a)')
70     &'// ======================================================='
71     call print_message( msgbuf, standardmessageunit,
72     & SQUEEZE_RIGHT , mythid)
73     write(msgbuf,'(a)')
74     &' '
75     call print_message( msgbuf, standardmessageunit,
76     & SQUEEZE_RIGHT , mythid)
77     write(msgbuf,'(a,a)')
78     &'External forcing version: ',externalforcingversion
79     call print_message( msgbuf, standardmessageunit,
80     & SQUEEZE_RIGHT , mythid)
81     write(msgbuf,'(a,a)')
82     &'Uses Calendar version: ',usescalendarversion
83     call print_message( msgbuf, standardmessageunit,
84     & SQUEEZE_RIGHT , mythid)
85     write(msgbuf,'(a)')
86     &' '
87     call print_message( msgbuf, standardmessageunit,
88     & SQUEEZE_RIGHT , mythid)
89    
90     c For each data set used the summary prints the calendar data
91     c and the corresponding file from which the data will be read.
92    
93     #ifdef ALLOW_CLIMTEMP_RELAXATION
94     write(msgbuf,'(a)')
95     &'// ALLOW_CLIMTEMP_RELAXATION: defined'
96     call print_message( msgbuf, standardmessageunit,
97     & SQUEEZE_RIGHT , mythid)
98     #else
99     write(msgbuf,'(a)')
100     &'// ALLOW_CLIMTEMP_RELAXATION: NOT defined'
101     call print_message( msgbuf, standardmessageunit,
102     & SQUEEZE_RIGHT , mythid)
103     #endif
104    
105     #ifdef ALLOW_CLIMSALT_RELAXATION
106     write(msgbuf,'(a)')
107     &'// ALLOW_CLIMSALT_RELAXATION: defined'
108     call print_message( msgbuf, standardmessageunit,
109     & SQUEEZE_RIGHT , mythid)
110     #else
111     write(msgbuf,'(a)')
112     &'// ALLOW_CLIMSALT_RELAXATION: NOT defined'
113     call print_message( msgbuf, standardmessageunit,
114     & SQUEEZE_RIGHT , mythid)
115     #endif
116    
117     #ifdef ALLOW_CLIMSST_RELAXATION
118     write(msgbuf,'(a)')
119     &'// ALLOW_CLIMSST_RELAXATION: defined'
120     call print_message( msgbuf, standardmessageunit,
121     & SQUEEZE_RIGHT , mythid)
122     #else
123     write(msgbuf,'(a)')
124     &'// ALLOW_CLIMSST_RELAXATION: NOT defined'
125     call print_message( msgbuf, standardmessageunit,
126     & SQUEEZE_RIGHT , mythid)
127     #endif
128    
129     #ifdef ALLOW_CLIMSSS_RELAXATION
130     write(msgbuf,'(a)')
131     &'// ALLOW_CLIMSSS_RELAXATION: defined'
132     call print_message( msgbuf, standardmessageunit,
133     & SQUEEZE_RIGHT , mythid)
134     #else
135     write(msgbuf,'(a)')
136     &'// ALLOW_CLIMSSS_RELAXATION: NOT defined'
137     call print_message( msgbuf, standardmessageunit,
138     & SQUEEZE_RIGHT , mythid)
139     #endif
140    
141     c The climatological data sets are assumed to contain monthly
142     c data. This can be changed in a later version to an arbitrary
143     c number of intervals during a given year.
144    
145     #ifdef ALLOW_CLIMTEMP_RELAXATION
146     c Relaxation to pot. temperature climatology.
147     il = ilnblnk(climtempfile)
148     write(msgbuf,'(a)')
149     &' '
150     call print_message( msgbuf, standardmessageunit,
151     & SQUEEZE_RIGHT , mythid)
152    
153 dimitri 1.8 write(msgbuf,'(a,f12.0)')
154 heimbach 1.1 &' Climatological pot. temperature starts at ',
155 dimitri 1.8 & climtempstartdate
156 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
157     & SQUEEZE_RIGHT , mythid)
158 dimitri 1.8 write(msgbuf,'(a,f12.0)')
159 heimbach 1.1 &' Climatological pot. temperature period is ',
160 dimitri 1.8 & climtempperiod
161 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
162     & SQUEEZE_RIGHT , mythid)
163    
164     write(msgbuf,'(a)')
165     &' Climatological pot. temperature is read from file:'
166     call print_message( msgbuf, standardmessageunit,
167     & SQUEEZE_RIGHT , mythid)
168     write(msgbuf,'(a,a,a)')
169     &' >> ',climtempfile(1:il),' <<'
170     call print_message( msgbuf, standardmessageunit,
171     & SQUEEZE_RIGHT , mythid)
172     #endif
173    
174     #ifdef ALLOW_CLIMSALT_RELAXATION
175     c Relaxation to salinity climatology.
176     il = ilnblnk(climsaltfile)
177     write(msgbuf,'(a)')
178     &' '
179     call print_message( msgbuf, standardmessageunit,
180     & SQUEEZE_RIGHT , mythid)
181 dimitri 1.8 write(msgbuf,'(a,f12.0)')
182 heimbach 1.1 &' Climatological salinity starts at ',
183 dimitri 1.8 & climsaltstartdate
184 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
185     & SQUEEZE_RIGHT , mythid)
186 dimitri 1.8 write(msgbuf,'(a,f12.0)')
187 heimbach 1.1 &' Climatological salinity period is ',
188 dimitri 1.8 & climsaltperiod
189 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
190     & SQUEEZE_RIGHT , mythid)
191     write(msgbuf,'(a)')
192     &' Climatological salinity is read from file:'
193     call print_message( msgbuf, standardmessageunit,
194     & SQUEEZE_RIGHT , mythid)
195     write(msgbuf,'(a,a,a)')
196     &' >> ',climsaltfile(1:il),' <<'
197     call print_message( msgbuf, standardmessageunit,
198     & SQUEEZE_RIGHT , mythid)
199     #endif
200    
201     #ifdef ALLOW_CLIMSST_RELAXATION
202     c Relaxation to SST climatology.
203     il = ilnblnk(climsstfile)
204     write(msgbuf,'(a)')
205     &' '
206     call print_message( msgbuf, standardmessageunit,
207     & SQUEEZE_RIGHT , mythid)
208 dimitri 1.8 write(msgbuf,'(a,f12.0)')
209 heimbach 1.1 &' Climatological SST starts at ',
210 dimitri 1.8 & climsststartdate
211 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
212     & SQUEEZE_RIGHT , mythid)
213 dimitri 1.8 write(msgbuf,'(a,f12.0)')
214 heimbach 1.1 &' Climatological SST period is ',
215 dimitri 1.8 & climsstperiod
216 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
217     & SQUEEZE_RIGHT , mythid)
218     write(msgbuf,'(a)')
219     &' Climatological SST is read from file:'
220     call print_message( msgbuf, standardmessageunit,
221     & SQUEEZE_RIGHT , mythid)
222     write(msgbuf,'(a,a,a)')
223     &' >> ',climsstfile(1:il),' <<'
224     call print_message( msgbuf, standardmessageunit,
225     & SQUEEZE_RIGHT , mythid)
226     #endif
227    
228     #ifdef ALLOW_CLIMSSS_RELAXATION
229     c Relaxation to SSS climatology.
230     il = ilnblnk(climsssfile)
231     write(msgbuf,'(a)')
232     &' '
233     call print_message( msgbuf, standardmessageunit,
234     & SQUEEZE_RIGHT , mythid)
235 dimitri 1.8 write(msgbuf,'(a,f12.0)')
236 heimbach 1.1 &' Climatological SSS starts at ',
237 dimitri 1.8 & climsssstartdate
238 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
239     & SQUEEZE_RIGHT , mythid)
240 dimitri 1.8 write(msgbuf,'(a,f12.0)')
241 heimbach 1.1 &' Climatological SSS period is ',
242 dimitri 1.8 & climsssperiod
243 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
244     & SQUEEZE_RIGHT , mythid)
245     write(msgbuf,'(a)')
246     &' Climatological SSS is read from file:'
247     call print_message( msgbuf, standardmessageunit,
248     & SQUEEZE_RIGHT , mythid)
249     write(msgbuf,'(a,a,a)')
250     &' >> ',climsssfile(1:il),' <<'
251     call print_message( msgbuf, standardmessageunit,
252     & SQUEEZE_RIGHT , mythid)
253     #endif
254    
255     write(msgbuf,'(a)')
256     &' '
257     call print_message( msgbuf, standardmessageunit,
258     & SQUEEZE_RIGHT , mythid)
259     write(msgbuf,'(a)')
260     &'// ======================================================='
261     call print_message( msgbuf, standardmessageunit,
262     & SQUEEZE_RIGHT , mythid)
263     write(msgbuf,'(a)')
264     &'// External forcing climatology configuration >>> END <<<'
265     call print_message( msgbuf, standardmessageunit,
266     & SQUEEZE_RIGHT , mythid)
267     write(msgbuf,'(a)')
268     &'// ======================================================='
269     call print_message( msgbuf, standardmessageunit,
270     & SQUEEZE_RIGHT , mythid)
271     write(msgbuf,'(a)')
272     &' '
273     call print_message( msgbuf, standardmessageunit,
274     & SQUEEZE_RIGHT , mythid)
275    
276     end
  ViewVC Help
Powered by ViewVC 1.1.22