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

Contents of /MITgcm/pkg/exf/exfa_summary.F

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

Revision 1.1 - (show annotations) (download)
Mon May 14 22:08:42 2001 UTC (23 years ago) by heimbach
Branch: MAIN
CVS Tags: ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, checkpoint40pre7, checkpoint43a-release1mods, checkpoint44e_post, checkpoint46l_post, checkpoint46g_pre, chkpt44a_pre, ecco_c44_e22, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e24, checkpoint46f_post, checkpoint46d_pre, checkpoint46e_post, release1-branch_tutorials, checkpoint46c_post, checkpoint46b_post, ecco-branch-mod1, checkpoint46e_pre, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, checkpoint45d_post, release1_beta1, checkpoint46j_pre, checkpoint45b_post, checkpoint44g_post, release1-branch-end, release1_final_v1, checkpoint44b_pre, checkpoint42, checkpoint43, checkpoint40, checkpoint41, checkpoint46, checkpoint44, checkpoint45, checkpoint44f_post, checkpoint40pre3, checkpoint40pre2, checkpoint40pre1, checkpoint44b_post, checkpoint40pre6, checkpoint40pre5, checkpoint46h_post, checkpoint40pre9, checkpoint40pre8, checkpoint46l_pre, checkpoint44h_pre, release1_b1, chkpt44d_post, chkpt44a_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, checkpoint46a_post, chkpt44c_post, checkpoint46m_post, checkpoint46j_post, checkpoint40pre4, checkpoint44f_pre, checkpoint46a_pre, checkpoint45c_post, checkpoint46k_post, checkpoint44e_pre, checkpoint46b_pre, checkpoint44h_post, checkpoint46d_post, ecco-branch-mod2, checkpoint46g_post, checkpoint45a_post, release1-branch_branchpoint, checkpoint46c_pre, checkpoint39, checkpoint46i_post, checkpoint46h_pre, release1_chkpt44d_post, chkpt44c_pre
Branch point for: release1_final, ecco-branch, release1, release1_coupled, release1-branch 
Added external forcing package.
Not presently supported by mitgcm, i.e. disabled by default.
1 c $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/exf/exfa_summary.F,v 1.1 2001/02/02 19:43:48 heimbach Exp $
2
3 #include "EXF_CPPOPTIONS.h"
4
5
6 subroutine exfa_Summary(
7 I mythid
8 & )
9
10 c ==================================================================
11 c SUBROUTINE exfa_Summary
12 c ==================================================================
13 c
14 c o List all the settings of the external forcing anomalies.
15 c
16 c started: Ralf.Giering@FastOpt.de 24-Mai-2000
17 c
18 c ==================================================================
19 c SUBROUTINE exfa_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 #include "exfa_param.h"
31
32 c == routine arguments ==
33
34 c mythid - thread number for this instance of the routine.
35
36 integer mythid
37
38 c == local variables ==
39
40 integer i
41 integer il
42 integer timeint(4)
43
44 character*(max_len_mbuf) msgbuf
45
46 c == external ==
47
48 integer ilnblnk
49 external ilnblnk
50
51 c == end of interface ==
52
53 write(msgbuf,'(a)')
54 &' '
55 call print_message( msgbuf, standardmessageunit,
56 & SQUEEZE_RIGHT , mythid)
57 write(msgbuf,'(a)')
58 &'// ======================================================='
59 call print_message( msgbuf, standardmessageunit,
60 & SQUEEZE_RIGHT , mythid)
61 write(msgbuf,'(a)')
62 &'// External forcing anomaly configuration >>> START <<<'
63 call print_message( msgbuf, standardmessageunit,
64 & SQUEEZE_RIGHT , mythid)
65 write(msgbuf,'(a)')
66 &'// ======================================================='
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,a)')
74 &'External forcing anomaly version: ',externalforcingversion
75 call print_message( msgbuf, standardmessageunit,
76 & SQUEEZE_RIGHT , mythid)
77 write(msgbuf,'(a,a)')
78 &'Uses Calendar version: ',usescalendarversion
79 call print_message( msgbuf, standardmessageunit,
80 & SQUEEZE_RIGHT , mythid)
81 write(msgbuf,'(a)')
82 &' '
83 call print_message( msgbuf, standardmessageunit,
84 & SQUEEZE_RIGHT , mythid)
85
86 c For each data set used the summary prints the calendar data
87 c and the corresponding file from which the data will be read.
88
89 c Heat flux.
90 il = ilnblnk(hfluxafile)
91 call cal_TimeInterval( hfluxaperiod, 'secs', timeint, mythid )
92
93 write(msgbuf,'(a)')
94 &' '
95 call print_message( msgbuf, standardmessageunit,
96 & SQUEEZE_RIGHT , mythid)
97 write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
98 &' Heat flux anomaly forcing starts at ',
99 & (hfluxastartdate(i), i=1,2), dayofweek(hfluxastartdate(4)),'.'
100 call print_message( msgbuf, standardmessageunit,
101 & SQUEEZE_RIGHT , mythid)
102 write(msgbuf,'(a,i9.8,i7.6)')
103 &' Heat flux anomaly forcing period is ',
104 & (timeint(i), i=1,2)
105 call print_message( msgbuf, standardmessageunit,
106 & SQUEEZE_RIGHT , mythid)
107 write(msgbuf,'(a)')
108 &' Heat flux forcing anomaly is read from file:'
109 call print_message( msgbuf, standardmessageunit,
110 & SQUEEZE_RIGHT , mythid)
111 write(msgbuf,'(a,a,a)')
112 &' >> ',hfluxafile(1:il),' <<'
113 call print_message( msgbuf, standardmessageunit,
114 & SQUEEZE_RIGHT , mythid)
115
116 c Salt flux.
117 il = ilnblnk(sfluxafile)
118 call cal_TimeInterval( sfluxaperiod, 'secs', timeint, mythid )
119
120 write(msgbuf,'(a)')
121 &' '
122 call print_message( msgbuf, standardmessageunit,
123 & SQUEEZE_RIGHT , mythid)
124 write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
125 &' Salt flux forcing anomaly starts at ',
126 & (sfluxastartdate(i), i=1,2), dayofweek(sfluxastartdate(4)),'.'
127 call print_message( msgbuf, standardmessageunit,
128 & SQUEEZE_RIGHT , mythid)
129 write(msgbuf,'(a,i9.8,i7.6)')
130 &' Salt flux forcing anomaly period is ',
131 & (timeint(i), i=1,2)
132 call print_message( msgbuf, standardmessageunit,
133 & SQUEEZE_RIGHT , mythid)
134 write(msgbuf,'(a)')
135 &' Salt flux forcing anomaly is read from file:'
136 call print_message( msgbuf, standardmessageunit,
137 & SQUEEZE_RIGHT , mythid)
138 write(msgbuf,'(a,a,a)')
139 &' >> ',sfluxafile(1:il),' <<'
140 call print_message( msgbuf, standardmessageunit,
141 & SQUEEZE_RIGHT , mythid)
142
143
144 c Zonal wind stress.
145 il = ilnblnk(ustressafile)
146 call cal_TimeInterval( ustressaperiod, 'secs', timeint, mythid )
147
148 write(msgbuf,'(a)')
149 &' '
150 call print_message( msgbuf, standardmessageunit,
151 & SQUEEZE_RIGHT , mythid)
152 write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
153 &' Zonal wind stress anomaly forcing starts at ',
154 &(ustressastartdate(i), i=1,2), dayofweek(ustressastartdate(4)),
155 & '.'
156 call print_message( msgbuf, standardmessageunit,
157 & SQUEEZE_RIGHT , mythid)
158 write(msgbuf,'(a,i9.8,i7.6)')
159 &' Zonal wind stress anomaly forcing period is ',
160 & (timeint(i), i=1,2)
161 call print_message( msgbuf, standardmessageunit,
162 & SQUEEZE_RIGHT , mythid)
163 write(msgbuf,'(a)')
164 &' Zonal wind stress anomaly forcing is read from file:'
165 call print_message( msgbuf, standardmessageunit,
166 & SQUEEZE_RIGHT , mythid)
167 write(msgbuf,'(a,a,a)')
168 &' >> ',ustressafile(1:il),' <<'
169 call print_message( msgbuf, standardmessageunit,
170 & SQUEEZE_RIGHT , mythid)
171
172 c Meridional wind stress.
173 il = ilnblnk(vstressafile)
174 call cal_TimeInterval( vstressaperiod, 'secs', timeint, mythid )
175
176 write(msgbuf,'(a)')
177 &' '
178 call print_message( msgbuf, standardmessageunit,
179 & SQUEEZE_RIGHT , mythid)
180 write(msgbuf,'(a,i9.8,i7.6,1x,a,a)')
181 &' Meridional wind stress anomaly forcing starts at ',
182 &(vstressastartdate(i), i=1,2), dayofweek(vstressastartdate(4)),
183 & '.'
184 call print_message( msgbuf, standardmessageunit,
185 & SQUEEZE_RIGHT , mythid)
186 write(msgbuf,'(a,i9.8,i7.6)')
187 &' Meridional wind stress anomaly forcing period is ',
188 & (timeint(i), i=1,2)
189 call print_message( msgbuf, standardmessageunit,
190 & SQUEEZE_RIGHT , mythid)
191 write(msgbuf,'(a)')
192 &' Meridional wind stress anomaly forcing is read from file:'
193 call print_message( msgbuf, standardmessageunit,
194 & SQUEEZE_RIGHT , mythid)
195 write(msgbuf,'(a,a,a)')
196 &' >> ',vstressafile(1:il),' <<'
197 call print_message( msgbuf, standardmessageunit,
198 & SQUEEZE_RIGHT , mythid)
199
200
201 write(msgbuf,'(a)')
202 &' '
203 call print_message( msgbuf, standardmessageunit,
204 & SQUEEZE_RIGHT , mythid)
205 write(msgbuf,'(a)')
206 &'// ======================================================='
207 call print_message( msgbuf, standardmessageunit,
208 & SQUEEZE_RIGHT , mythid)
209 write(msgbuf,'(a)')
210 &'// External forcing anomaly configuration >>> END <<<'
211 call print_message( msgbuf, standardmessageunit,
212 & SQUEEZE_RIGHT , mythid)
213 write(msgbuf,'(a)')
214 &'// ======================================================='
215 call print_message( msgbuf, standardmessageunit,
216 & SQUEEZE_RIGHT , mythid)
217 write(msgbuf,'(a)')
218 &' '
219 call print_message( msgbuf, standardmessageunit,
220 & SQUEEZE_RIGHT , mythid)
221
222 end
  ViewVC Help
Powered by ViewVC 1.1.22