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

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

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

Revision 1.1 - (hide annotations) (download)
Mon May 14 22:08:42 2001 UTC (23 years, 1 month 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 heimbach 1.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