/[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.2 - (hide annotations) (download)
Thu Feb 7 20:00:09 2002 UTC (22 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46b_post, checkpoint46k_post, checkpoint46c_pre, checkpoint45d_post, checkpoint44h_pre, checkpoint46j_post, checkpoint44f_pre, checkpoint45a_post, checkpoint46f_post, checkpoint46a_post, checkpoint46d_pre, checkpoint46e_post, checkpoint45b_post, checkpoint44g_post, checkpoint46h_pre, checkpoint45c_post, checkpoint44h_post, chkpt44c_post, checkpoint44e_post, checkpoint46e_pre, checkpoint46l_pre, checkpoint46j_pre, checkpoint46b_pre, checkpoint46l_post, release1_final_v1, checkpoint46, checkpoint44f_post, checkpoint44b_post, chkpt44d_post, checkpoint46m_post, checkpoint46g_pre, checkpoint46a_pre, checkpoint44e_pre, chkpt44c_pre, checkpoint46d_post, checkpoint46g_post, checkpoint46i_post, checkpoint46c_post, checkpoint45, checkpoint46h_post
Branch point for: release1_final
Changes since 1.1: +3 -3 lines 
o merge of relevant stuff from the ecco-branch:
  - genmake: removed $S64 overwrite for case SunOS
  - pkg/exf: update and corrections for field swapping and obcs
  - pkg/ecco: parameter lists for the_model_main, the_main_loop
              harmonized between ECCO and MITgcm
  - pkg/autodiff: added flow directives for obcs, mdsio_gl_slice
                  updated checkpointing_lev... lists for obcs
  - model/src: minor changes in forward_step, plot_field
               added directive for divided adjoint in the_main_loop
  - pkg/mdsio: added mdsio_gl_slice
1 heimbach 1.2 c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_clim_summary.F,v 1.1.6.1 2002/02/06 23:18:53 heimbach Exp $
2 heimbach 1.1
3     #include "EXF_CPPOPTIONS.h"
4    
5    
6     subroutine exf_clim_summary(
7     I mythid
8     & )
9    
10     c ==================================================================
11     c SUBROUTINE exf_clim_summary
12     c ==================================================================
13     c
14     c o List all the settings of the external forcing.
15     c
16     c started: Ralf.Giering@FastOpt.de 25-Mai-2000
17     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    
31     #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     integer i
42     integer il
43     integer timeint(4)
44    
45     character*(max_len_mbuf) msgbuf
46    
47     c == external ==
48    
49     integer ilnblnk
50     external ilnblnk
51    
52     c == end of interface ==
53    
54     write(msgbuf,'(a)')
55     &' '
56     call print_message( msgbuf, standardmessageunit,
57     & SQUEEZE_RIGHT , mythid)
58     write(msgbuf,'(a)')
59     &'// ======================================================='
60     call print_message( msgbuf, standardmessageunit,
61     & SQUEEZE_RIGHT , mythid)
62     write(msgbuf,'(a)')
63     &'// External forcing climatology configuration >>> START <<<'
64     call print_message( msgbuf, standardmessageunit,
65     & SQUEEZE_RIGHT , mythid)
66     write(msgbuf,'(a)')
67     &'// ======================================================='
68     call print_message( msgbuf, standardmessageunit,
69     & SQUEEZE_RIGHT , mythid)
70     write(msgbuf,'(a)')
71     &' '
72     call print_message( msgbuf, standardmessageunit,
73     & SQUEEZE_RIGHT , mythid)
74     write(msgbuf,'(a,a)')
75     &'External forcing version: ',externalforcingversion
76     call print_message( msgbuf, standardmessageunit,
77     & SQUEEZE_RIGHT , mythid)
78     write(msgbuf,'(a,a)')
79     &'Uses Calendar version: ',usescalendarversion
80     call print_message( msgbuf, standardmessageunit,
81     & SQUEEZE_RIGHT , mythid)
82     write(msgbuf,'(a)')
83     &' '
84     call print_message( msgbuf, standardmessageunit,
85     & SQUEEZE_RIGHT , mythid)
86    
87     c For each data set used the summary prints the calendar data
88     c and the corresponding file from which the data will be read.
89    
90     #ifdef ALLOW_CLIMTEMP_RELAXATION
91     write(msgbuf,'(a)')
92     &'// ALLOW_CLIMTEMP_RELAXATION: defined'
93     call print_message( msgbuf, standardmessageunit,
94     & SQUEEZE_RIGHT , mythid)
95     #else
96     write(msgbuf,'(a)')
97     &'// ALLOW_CLIMTEMP_RELAXATION: NOT defined'
98     call print_message( msgbuf, standardmessageunit,
99     & SQUEEZE_RIGHT , mythid)
100     #endif
101    
102     #ifdef ALLOW_CLIMSALT_RELAXATION
103     write(msgbuf,'(a)')
104     &'// ALLOW_CLIMSALT_RELAXATION: defined'
105     call print_message( msgbuf, standardmessageunit,
106     & SQUEEZE_RIGHT , mythid)
107     #else
108     write(msgbuf,'(a)')
109     &'// ALLOW_CLIMSALT_RELAXATION: NOT defined'
110     call print_message( msgbuf, standardmessageunit,
111     & SQUEEZE_RIGHT , mythid)
112     #endif
113    
114     #ifdef ALLOW_CLIMSST_RELAXATION
115     write(msgbuf,'(a)')
116     &'// ALLOW_CLIMSST_RELAXATION: defined'
117     call print_message( msgbuf, standardmessageunit,
118     & SQUEEZE_RIGHT , mythid)
119     #else
120     write(msgbuf,'(a)')
121     &'// ALLOW_CLIMSST_RELAXATION: NOT defined'
122     call print_message( msgbuf, standardmessageunit,
123     & SQUEEZE_RIGHT , mythid)
124     #endif
125    
126     #ifdef ALLOW_CLIMSSS_RELAXATION
127     write(msgbuf,'(a)')
128     &'// ALLOW_CLIMSSS_RELAXATION: defined'
129     call print_message( msgbuf, standardmessageunit,
130     & SQUEEZE_RIGHT , mythid)
131     #else
132     write(msgbuf,'(a)')
133     &'// ALLOW_CLIMSSS_RELAXATION: NOT defined'
134     call print_message( msgbuf, standardmessageunit,
135     & SQUEEZE_RIGHT , mythid)
136     #endif
137    
138     c The climatological data sets are assumed to contain monthly
139     c data. This can be changed in a later version to an arbitrary
140     c number of intervals during a given year.
141    
142     #ifdef ALLOW_CLIMTEMP_RELAXATION
143     c Relaxation to pot. temperature climatology.
144     il = ilnblnk(climtempfile)
145     call cal_TimeInterval( climtempperiod, 'secs', timeint, mythid )
146    
147     write(msgbuf,'(a)')
148     &' '
149     call print_message( msgbuf, standardmessageunit,
150     & SQUEEZE_RIGHT , mythid)
151    
152     write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
153     &' Climatological pot. temperature starts at ',
154     & (climtempstartdate(i), i=1,2),
155 heimbach 1.2 & dayofweek(climtempstartdate(4)),'.'
156 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
157     & SQUEEZE_RIGHT , mythid)
158     write(msgbuf,'(a,i9.8,i7.6)')
159     &' Climatological pot. temperature period is ',
160     & (timeint(i), i=1,2)
161     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     call cal_TimeInterval( climsaltperiod, 'secs', timeint, mythid )
178    
179     write(msgbuf,'(a)')
180     &' '
181     call print_message( msgbuf, standardmessageunit,
182     & SQUEEZE_RIGHT , mythid)
183     write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
184     &' Climatological salinity starts at ',
185     & (climsaltstartdate(i), i=1,2),
186 heimbach 1.2 & dayofweek(climsaltstartdate(4)),'.'
187 heimbach 1.1 call print_message( msgbuf, standardmessageunit,
188     & SQUEEZE_RIGHT , mythid)
189     write(msgbuf,'(a,i9.8,i7.6)')
190     &' Climatological salinity period is ',
191     & (timeint(i), i=1,2)
192     call print_message( msgbuf, standardmessageunit,
193     & SQUEEZE_RIGHT , mythid)
194     write(msgbuf,'(a)')
195     &' Climatological salinity is read from file:'
196     call print_message( msgbuf, standardmessageunit,
197     & SQUEEZE_RIGHT , mythid)
198     write(msgbuf,'(a,a,a)')
199     &' >> ',climsaltfile(1:il),' <<'
200     call print_message( msgbuf, standardmessageunit,
201     & SQUEEZE_RIGHT , mythid)
202     #endif
203    
204     #ifdef ALLOW_CLIMSST_RELAXATION
205     c Relaxation to SST climatology.
206     il = ilnblnk(climsstfile)
207     call cal_TimeInterval( climsstperiod, 'secs', timeint, mythid )
208    
209     write(msgbuf,'(a)')
210     &' '
211     call print_message( msgbuf, standardmessageunit,
212     & SQUEEZE_RIGHT , mythid)
213     write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
214     &' Climatological SST starts at ',
215     & (climsststartdate(i), i=1,2),
216     & dayofweek(climsststartdate(4)),'.'
217     call print_message( msgbuf, standardmessageunit,
218     & SQUEEZE_RIGHT , mythid)
219     write(msgbuf,'(a,i9.8,i7.6)')
220     &' Climatological SST period is ',
221     & (timeint(i), i=1,2)
222     call print_message( msgbuf, standardmessageunit,
223     & SQUEEZE_RIGHT , mythid)
224     write(msgbuf,'(a)')
225     &' Climatological SST is read from file:'
226     call print_message( msgbuf, standardmessageunit,
227     & SQUEEZE_RIGHT , mythid)
228     write(msgbuf,'(a,a,a)')
229     &' >> ',climsstfile(1:il),' <<'
230     call print_message( msgbuf, standardmessageunit,
231     & SQUEEZE_RIGHT , mythid)
232     #endif
233    
234     #ifdef ALLOW_CLIMSSS_RELAXATION
235     c Relaxation to SSS climatology.
236     il = ilnblnk(climsssfile)
237     call cal_TimeInterval( climsssperiod, 'secs', timeint, mythid )
238    
239     write(msgbuf,'(a)')
240     &' '
241     call print_message( msgbuf, standardmessageunit,
242     & SQUEEZE_RIGHT , mythid)
243     write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
244     &' Climatological SSS starts at ',
245     & (climsssstartdate(i), i=1,2),
246     & dayofweek(climsssstartdate(4)),'.'
247     call print_message( msgbuf, standardmessageunit,
248     & SQUEEZE_RIGHT , mythid)
249     write(msgbuf,'(a,i9.8,i7.6)')
250     &' Climatological SSS period is ',
251     & (timeint(i), i=1,2)
252     call print_message( msgbuf, standardmessageunit,
253     & SQUEEZE_RIGHT , mythid)
254     write(msgbuf,'(a)')
255     &' Climatological SSS is read from file:'
256     call print_message( msgbuf, standardmessageunit,
257     & SQUEEZE_RIGHT , mythid)
258     write(msgbuf,'(a,a,a)')
259     &' >> ',climsssfile(1:il),' <<'
260     call print_message( msgbuf, standardmessageunit,
261     & SQUEEZE_RIGHT , mythid)
262     #endif
263    
264     write(msgbuf,'(a)')
265     &' '
266     call print_message( msgbuf, standardmessageunit,
267     & SQUEEZE_RIGHT , mythid)
268     write(msgbuf,'(a)')
269     &'// ======================================================='
270     call print_message( msgbuf, standardmessageunit,
271     & SQUEEZE_RIGHT , mythid)
272     write(msgbuf,'(a)')
273     &'// External forcing climatology configuration >>> END <<<'
274     call print_message( msgbuf, standardmessageunit,
275     & SQUEEZE_RIGHT , mythid)
276     write(msgbuf,'(a)')
277     &'// ======================================================='
278     call print_message( msgbuf, standardmessageunit,
279     & SQUEEZE_RIGHT , mythid)
280     write(msgbuf,'(a)')
281     &' '
282     call print_message( msgbuf, standardmessageunit,
283     & SQUEEZE_RIGHT , mythid)
284    
285     end
  ViewVC Help
Powered by ViewVC 1.1.22