/[MITgcm]/MITgcm/pkg/obcs/orlanski_checkpoint.F
ViewVC logotype

Contents of /MITgcm/pkg/obcs/orlanski_checkpoint.F

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

Revision 1.2 - (show annotations) (download)
Tue May 29 14:01:39 2001 UTC (22 years, 11 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, ecco_c44_e19, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, release1_p13_pre, checkpoint50c_post, checkpoint46f_post, checkpoint48e_post, checkpoint50g_post, checkpoint46b_post, checkpoint43a-release1mods, checkpoint44g_post, checkpoint48c_post, ecco_c50_e32, ecco_c50_e33, ecco_c50_e30, ecco_c50_e31, release1_p13, checkpoint40pre3, checkpoint40pre2, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint48i_post, checkpoint40pre9, checkpoint40pre8, checkpoint46l_pre, checkpoint50d_pre, chkpt44d_post, release1_p8, release1_p9, checkpoint50d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint50b_pre, checkpoint44e_pre, release1_b1, checkpoint48b_post, checkpoint43, checkpoint48c_pre, release1_chkpt44d_post, checkpoint48d_pre, checkpoint47i_post, checkpoint47d_post, icebear5, icebear4, icebear3, icebear2, checkpoint46d_pre, checkpoint48d_post, release1-branch_tutorials, checkpoint48f_post, checkpoint45d_post, checkpoint46j_pre, ecco_c50_e28, checkpoint47d_pre, chkpt44a_post, checkpoint44h_pre, checkpoint48h_post, checkpoint40pre4, ecco_c50_e29, checkpoint46a_post, checkpoint47g_post, chkpt44c_post, checkpoint46j_post, checkpoint46k_post, checkpoint46b_pre, chkpt44c_pre, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint44e_post, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, release1_p12, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint47a_post, ecco_c50_e33a, checkpoint46e_pre, checkpoint45b_post, release1-branch-end, release1_final_v1, release1_p12_pre, checkpoint46c_pre, checkpoint44f_post, checkpoint47b_post, checkpoint44b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint50c_pre, checkpoint45c_post, ecco_ice2, ecco_ice1, checkpoint44h_post, checkpoint46g_post, checkpoint46i_post, checkpoint50e_pre, ecco_c44_e25, checkpoint48a_post, checkpoint47j_post, branch-exfmods-tag, checkpoint40pre5, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, ecco_c44_e22, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, checkpoint46c_post, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, checkpoint46e_post, release1_beta1, checkpoint44b_pre, checkpoint42, checkpoint40, checkpoint41, checkpoint46, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint50, checkpoint47h_post, checkpoint44f_pre, checkpoint46d_post, checkpoint50b_post, release1-branch_branchpoint, checkpoint48g_post
Branch point for: c24_e25_ice, branch-exfmods-curt, release1_coupled, release1_final, release1-branch, release1, ecco-branch, release1_50yr, icebear
Changes since 1.1: +104 -106 lines 
Merge from branch pre38:
 o essential mods for cubed sphere
 o debugged atmosphere, dynamcis + physics (aim)
 o new packages (mom_vecinv, mom_fluxform, ...)
1 C $Header:
2 C $Name:
3
4 #include "OBCS_OPTIONS.h"
5
6 CStartofinterface
7 SUBROUTINE ORLANSKI_READ_CHECKPOINT( prec, myIt, myThid )
8 C /==========================================================\
9 C | SUBROUTINE ORLANSKI_READ_CHECKPOINT |
10 C | o Read Orlanski open boundary checkpoint arrays |
11 C |==========================================================|
12 C | |
13 C \==========================================================/
14 IMPLICIT NONE
15
16 C === Global variables ===
17 #include "SIZE.h"
18 #include "EEPARAMS.h"
19 #include "PARAMS.h"
20 #include "OBCS.h"
21 #include "ORLANSKI.h"
22
23 C == Routine arguments ==
24 INTEGER prec
25 INTEGER myIt
26 INTEGER myThid
27 CEndofinterface
28
29 #ifdef ALLOW_ORLANSKI
30
31 C == Local variables ==
32 CHARACTER*(MAX_LEN_FNAM) fn
33
34 C READ N and S OB storage and phase speed arrays
35 WRITE(fn,'(A,I10.10)') 'pickup_orlanskiNS.',myIt
36 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_1,1,myThid)
37 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_2,2,myThid)
38 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_3,3,myThid)
39 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,UN_STORE_4,4,myThid)
40 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_1,5,myThid)
41 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_2,6,myThid)
42 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_3,7,myThid)
43 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VN_STORE_4,8,myThid)
44 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_1,9,myThid)
45 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_2,10,myThid)
46 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_3,11,myThid)
47 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TN_STORE_4,12,myThid)
48 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_1,13,myThid)
49 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_2,14,myThid)
50 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_3,15,myThid)
51 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SN_STORE_4,16,myThid)
52
53 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_1,17,myThid)
54 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_2,18,myThid)
55 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_3,19,myThid)
56 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,US_STORE_4,20,myThid)
57 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_1,21,myThid)
58 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_2,22,myThid)
59 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_3,23,myThid)
60 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,VS_STORE_4,24,myThid)
61 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_1,25,myThid)
62 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_2,26,myThid)
63 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_3,27,myThid)
64 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,TS_STORE_4,28,myThid)
65 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_1,29,myThid)
66 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_2,30,myThid)
67 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_3,31,myThid)
68 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,SS_STORE_4,32,myThid)
69
70 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_UN,33,myThid)
71 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_VN,34,myThid)
72 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_TN,35,myThid)
73 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_SN,36,myThid)
74 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_US,37,myThid)
75 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_VS,38,myThid)
76 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_TS,39,myThid)
77 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_SS,40,myThid)
78 #ifdef ALLOW_NONHYDROSTATIC
79 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_1,41,myThid)
80 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_2,42,myThid)
81 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_3,43,myThid)
82 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WN_STORE_4,44,myThid)
83 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_1,45,myThid)
84 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_2,46,myThid)
85 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_3,47,myThid)
86 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,WS_STORE_4,48,myThid)
87 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_WN,49,myThid)
88 CALL MDSREADFIELDXZ(fn,prec,'RL',Nr,CVEL_WS,50,myThid)
89 #endif
90
91 C READ E and W OB storage and phase speed arrays
92 WRITE(fn,'(A,I10.10)') 'pickup_orlanskiEW.',myIt
93 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_1,1,myThid)
94 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_2,2,myThid)
95 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_3,3,myThid)
96 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UE_STORE_4,4,myThid)
97 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_1,5,myThid)
98 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_2,6,myThid)
99 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_3,7,myThid)
100 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VE_STORE_4,8,myThid)
101 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_1,9,myThid)
102 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_2,10,myThid)
103 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_3,11,myThid)
104 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TE_STORE_4,12,myThid)
105 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_1,13,myThid)
106 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_2,14,myThid)
107 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_3,15,myThid)
108 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SE_STORE_4,16,myThid)
109
110 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_1,17,myThid)
111 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_2,18,myThid)
112 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_3,19,myThid)
113 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,UW_STORE_4,20,myThid)
114 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_1,21,myThid)
115 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_2,22,myThid)
116 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_3,23,myThid)
117 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,VW_STORE_4,24,myThid)
118 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_1,25,myThid)
119 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_2,26,myThid)
120 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_3,27,myThid)
121 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,TW_STORE_4,28,myThid)
122 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_1,29,myThid)
123 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_2,30,myThid)
124 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_3,31,myThid)
125 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,SW_STORE_4,32,myThid)
126
127 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_UE,33,myThid)
128 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_VE,34,myThid)
129 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_TE,35,myThid)
130 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_SE,36,myThid)
131 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_UW,37,myThid)
132 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_VW,38,myThid)
133 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_TW,39,myThid)
134 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_SW,40,myThid)
135 #ifdef ALLOW_NONHYDROSTATIC
136 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_1,41,myThid)
137 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_2,42,myThid)
138 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_3,43,myThid)
139 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WE_STORE_4,44,myThid)
140 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_1,45,myThid)
141 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_2,46,myThid)
142 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_3,47,myThid)
143 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,WW_STORE_4,48,myThid)
144 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_WE,49,myThid)
145 CALL MDSREADFIELDYZ(fn,prec,'RL',Nr,CVEL_WW,50,myThid)
146 #endif
147
148 C Fill in edge regions
149 c _EXCH_XZ_R8(UN_STORE_1 , myThid)
150 c _EXCH_XZ_R8(UN_STORE_2 , myThid)
151 c _EXCH_XZ_R8(UN_STORE_3 , myThid)
152 c _EXCH_XZ_R8(UN_STORE_4 , myThid)
153 c _EXCH_XZ_R8(VN_STORE_1 , myThid)
154 c _EXCH_XZ_R8(VN_STORE_2 , myThid)
155 c _EXCH_XZ_R8(VN_STORE_3 , myThid)
156 c _EXCH_XZ_R8(VN_STORE_4 , myThid)
157 c _EXCH_XZ_R8(TN_STORE_1 , myThid)
158 c _EXCH_XZ_R8(TN_STORE_2 , myThid)
159 c _EXCH_XZ_R8(TN_STORE_3 , myThid)
160 c _EXCH_XZ_R8(TN_STORE_4 , myThid)
161 c _EXCH_XZ_R8(SN_STORE_1 , myThid)
162 c _EXCH_XZ_R8(SN_STORE_2 , myThid)
163 c _EXCH_XZ_R8(SN_STORE_3 , myThid)
164 c _EXCH_XZ_R8(SN_STORE_4 , myThid)
165
166 c _EXCH_XZ_R8(US_STORE_1 , myThid)
167 c _EXCH_XZ_R8(US_STORE_2 , myThid)
168 c _EXCH_XZ_R8(US_STORE_3 , myThid)
169 c _EXCH_XZ_R8(US_STORE_4 , myThid)
170 c _EXCH_XZ_R8(VS_STORE_1 , myThid)
171 c _EXCH_XZ_R8(VS_STORE_2 , myThid)
172 c _EXCH_XZ_R8(VS_STORE_3 , myThid)
173 c _EXCH_XZ_R8(VS_STORE_4 , myThid)
174 c _EXCH_XZ_R8(TS_STORE_1 , myThid)
175 c _EXCH_XZ_R8(TS_STORE_2 , myThid)
176 c _EXCH_XZ_R8(TS_STORE_3 , myThid)
177 c _EXCH_XZ_R8(TS_STORE_4 , myThid)
178 c _EXCH_XZ_R8(SS_STORE_1 , myThid)
179 c _EXCH_XZ_R8(SS_STORE_2 , myThid)
180 c _EXCH_XZ_R8(SS_STORE_3 , myThid)
181 c _EXCH_XZ_R8(SS_STORE_4 , myThid)
182
183 c _EXCH_XZ_R8(CVEL_UN , myThid)
184 c _EXCH_XZ_R8(CVEL_VN , myThid)
185 c _EXCH_XZ_R8(CVEL_TN , myThid)
186 c _EXCH_XZ_R8(CVEL_SN , myThid)
187 c _EXCH_XZ_R8(CVEL_US , myThid)
188 c _EXCH_XZ_R8(CVEL_VS , myThid)
189 c _EXCH_XZ_R8(CVEL_TS , myThid)
190 c _EXCH_XZ_R8(CVEL_SS , myThid)
191 c#ifdef ALLOW_NONHYDROSTATIC
192 c _EXCH_XZ_R8(WN_STORE_1 , myThid)
193 c _EXCH_XZ_R8(WN_STORE_2 , myThid)
194 c _EXCH_XZ_R8(WN_STORE_3 , myThid)
195 c _EXCH_XZ_R8(WN_STORE_4 , myThid)
196 c _EXCH_XZ_R8(WS_STORE_1 , myThid)
197 c _EXCH_XZ_R8(WS_STORE_2 , myThid)
198 c _EXCH_XZ_R8(WS_STORE_3 , myThid)
199 c _EXCH_XZ_R8(WS_STORE_4 , myThid)
200 c _EXCH_XZ_R8(CVEL_WN , myThid)
201 c _EXCH_XZ_R8(CVEL_WS , myThid)
202 c#endif
203
204 C Fill in edge regions
205 c _EXCH_YZ_R8(UE_STORE_1 , myThid)
206 c _EXCH_YZ_R8(UE_STORE_2 , myThid)
207 c _EXCH_YZ_R8(UE_STORE_3 , myThid)
208 c _EXCH_YZ_R8(UE_STORE_4 , myThid)
209 c _EXCH_YZ_R8(VE_STORE_1 , myThid)
210 c _EXCH_YZ_R8(VE_STORE_2 , myThid)
211 c _EXCH_YZ_R8(VE_STORE_3 , myThid)
212 c _EXCH_YZ_R8(VE_STORE_4 , myThid)
213 c _EXCH_YZ_R8(TE_STORE_1 , myThid)
214 c _EXCH_YZ_R8(TE_STORE_2 , myThid)
215 c _EXCH_YZ_R8(TE_STORE_3 , myThid)
216 c _EXCH_YZ_R8(TE_STORE_4 , myThid)
217 c _EXCH_YZ_R8(SE_STORE_1 , myThid)
218 c _EXCH_YZ_R8(SE_STORE_2 , myThid)
219 c _EXCH_YZ_R8(SE_STORE_3 , myThid)
220 c _EXCH_YZ_R8(SE_STORE_4 , myThid)
221
222 c _EXCH_YZ_R8(UW_STORE_1 , myThid)
223 c _EXCH_YZ_R8(UW_STORE_2 , myThid)
224 c _EXCH_YZ_R8(UW_STORE_3 , myThid)
225 c _EXCH_YZ_R8(UW_STORE_4 , myThid)
226 c _EXCH_YZ_R8(VW_STORE_1 , myThid)
227 c _EXCH_YZ_R8(VW_STORE_2 , myThid)
228 c _EXCH_YZ_R8(VW_STORE_3 , myThid)
229 c _EXCH_YZ_R8(VW_STORE_4 , myThid)
230 c _EXCH_YZ_R8(TW_STORE_1 , myThid)
231 c _EXCH_YZ_R8(TW_STORE_2 , myThid)
232 c _EXCH_YZ_R8(TW_STORE_3 , myThid)
233 c _EXCH_YZ_R8(TW_STORE_4 , myThid)
234 c _EXCH_YZ_R8(SW_STORE_1 , myThid)
235 c _EXCH_YZ_R8(SW_STORE_2 , myThid)
236 c _EXCH_YZ_R8(SW_STORE_3 , myThid)
237 c _EXCH_YZ_R8(SW_STORE_4 , myThid)
238
239 c _EXCH_YZ_R8(CVEL_UE , myThid)
240 c _EXCH_YZ_R8(CVEL_VE , myThid)
241 c _EXCH_YZ_R8(CVEL_TE , myThid)
242 c _EXCH_YZ_R8(CVEL_SE , myThid)
243 c _EXCH_YZ_R8(CVEL_UW , myThid)
244 c _EXCH_YZ_R8(CVEL_VW , myThid)
245 c _EXCH_YZ_R8(CVEL_TW , myThid)
246 c _EXCH_YZ_R8(CVEL_SW , myThid)
247 c#ifdef ALLOW_NONHYDROSTATIC
248 c _EXCH_YZ_R8(WE_STORE_1 , myThid)
249 c _EXCH_YZ_R8(WE_STORE_2 , myThid)
250 c _EXCH_YZ_R8(WE_STORE_3 , myThid)
251 c _EXCH_YZ_R8(WE_STORE_4 , myThid)
252 c _EXCH_YZ_R8(WW_STORE_1 , myThid)
253 c _EXCH_YZ_R8(WW_STORE_2 , myThid)
254 c _EXCH_YZ_R8(WW_STORE_3 , myThid)
255 c _EXCH_YZ_R8(WW_STORE_4 , myThid)
256 c _EXCH_YZ_R8(CVEL_WE , myThid)
257 c _EXCH_YZ_R8(CVEL_WW , myThid)
258 c#endif
259
260
261 #endif /* ALLOW_ORLANSKI */
262 RETURN
263 END
264
265 CStartofinterface
266 SUBROUTINE ORLANSKI_WRITE_CHECKPOINT( prec, lgf, permCheckPoint,
267 & myIt, myThid )
268 C /==========================================================\
269 C | SUBROUTINE ORLANSKI_WRITE_CHECKPOINT |
270 C | o Write Orlanski open boundary checkpoint arrays |
271 C |==========================================================|
272 C | |
273 C \==========================================================/
274 IMPLICIT NONE
275
276 C === Global variables ===
277 #include "SIZE.h"
278 #include "EEPARAMS.h"
279 #include "PARAMS.h"
280 #include "OBCS.h"
281 #include "ORLANSKI.h"
282
283 C == Routine arguments ==
284 INTEGER prec
285 LOGICAL lgf
286 LOGICAL permCheckPoint
287 INTEGER myIt
288 INTEGER myThid
289 CEndofinterface
290
291 #ifdef ALLOW_ORLANSKI
292
293 C == Local variables ==
294 CHARACTER*(MAX_LEN_FNAM) fn
295
296 C Write N and S OB storage and phase speed arrays
297 IF ( permCheckPoint ) THEN
298 WRITE(fn,'(A,I10.10)') 'pickup_orlanskiNS.',myIt
299 ELSE
300 WRITE(fn,'(A,A)') 'pickup_orlanskiNS.',checkPtSuff(nCheckLev)
301 ENDIF
302 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_1,1,
303 & myIt,myThid)
304 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_2,2,
305 & myIt,myThid)
306 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_3,3,
307 & myIt,myThid)
308 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,UN_STORE_4,4,
309 & myIt,myThid)
310 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_1,5,
311 & myIt,myThid)
312 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_2,6,
313 & myIt,myThid)
314 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_3,7,
315 & myIt,myThid)
316 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VN_STORE_4,8,
317 & myIt,myThid)
318 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_1,9,
319 & myIt,myThid)
320 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_2,10,
321 & myIt,myThid)
322 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_3,11,
323 & myIt,myThid)
324 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TN_STORE_4,12,
325 & myIt,myThid)
326 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_1,13,
327 & myIt,myThid)
328 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_2,14,
329 & myIt,myThid)
330 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_3,15,
331 & myIt,myThid)
332 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SN_STORE_4,16,
333 & myIt,myThid)
334
335 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_1,17,
336 & myIt,myThid)
337 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_2,18,
338 & myIt,myThid)
339 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_3,19,
340 & myIt,myThid)
341 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,US_STORE_4,20,
342 & myIt,myThid)
343 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_1,21,
344 & myIt,myThid)
345 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_2,22,
346 & myIt,myThid)
347 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_3,23,
348 & myIt,myThid)
349 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,VS_STORE_4,24,
350 & myIt,myThid)
351 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_1,25,
352 & myIt,myThid)
353 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_2,26,
354 & myIt,myThid)
355 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_3,27,
356 & myIt,myThid)
357 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,TS_STORE_4,28,
358 & myIt,myThid)
359 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_1,29,
360 & myIt,myThid)
361 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_2,30,
362 & myIt,myThid)
363 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_3,31,
364 & myIt,myThid)
365 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,SS_STORE_4,32,
366 & myIt,myThid)
367
368 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_UN,33,
369 & myIt,myThid)
370 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_VN,34,
371 & myIt,myThid)
372 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_TN,35,
373 & myIt,myThid)
374 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_SN,36,
375 & myIt,myThid)
376 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_US,37,
377 & myIt,myThid)
378 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_VS,38,
379 & myIt,myThid)
380 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_TS,39,
381 & myIt,myThid)
382 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_SS,40,
383 & myIt,myThid)
384 #ifdef ALLOW_NONHYDROSTATIC
385 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_1,41,
386 & myIt,myThid)
387 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_2,42,
388 & myIt,myThid)
389 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_3,43,
390 & myIt,myThid)
391 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WN_STORE_4,44,
392 & myIt,myThid)
393 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_1,45,
394 & myIt,myThid)
395 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_2,46,
396 & myIt,myThid)
397 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_3,47,
398 & myIt,myThid)
399 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,WS_STORE_4,48,
400 & myIt,myThid)
401 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_WN,49,
402 & myIt,myThid)
403 CALL MDSWRITEFIELDXZ(fn,prec,lgf,'RL',Nr,CVEL_WS,50,
404 & myIt,myThid)
405 #endif
406
407 C Write E and W OB storage and phase speed arrays
408 IF ( permCheckPoint ) THEN
409 WRITE(fn,'(A,I10.10)') 'pickup_orlanskiEW.',myIt
410 ELSE
411 WRITE(fn,'(A,A)') 'pickup_orlanskiEW.',checkPtSuff(nCheckLev)
412 ENDIF
413 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_1,1,
414 & myIt,myThid)
415 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_2,2,
416 & myIt,myThid)
417 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_3,3,
418 & myIt,myThid)
419 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UE_STORE_4,4,
420 & myIt,myThid)
421 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_1,5,
422 & myIt,myThid)
423 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_2,6,
424 & myIt,myThid)
425 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_3,7,
426 & myIt,myThid)
427 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VE_STORE_4,8,
428 & myIt,myThid)
429 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_1,9,
430 & myIt,myThid)
431 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_2,10,
432 & myIt,myThid)
433 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_3,11,
434 & myIt,myThid)
435 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TE_STORE_4,12,
436 & myIt,myThid)
437 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_1,13,
438 & myIt,myThid)
439 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_2,14,
440 & myIt,myThid)
441 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_3,15,
442 & myIt,myThid)
443 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SE_STORE_4,16,
444 & myIt,myThid)
445
446 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_1,17,
447 & myIt,myThid)
448 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_2,18,
449 & myIt,myThid)
450 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_3,19,
451 & myIt,myThid)
452 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,UW_STORE_4,20,
453 & myIt,myThid)
454 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_1,21,
455 & myIt,myThid)
456 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_2,22,
457 & myIt,myThid)
458 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_3,23,
459 & myIt,myThid)
460 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,VW_STORE_4,24,
461 & myIt,myThid)
462 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_1,25,
463 & myIt,myThid)
464 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_2,26,
465 & myIt,myThid)
466 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_3,27,
467 & myIt,myThid)
468 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,TW_STORE_4,28,
469 & myIt,myThid)
470 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_1,29,
471 & myIt,myThid)
472 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_2,30,
473 & myIt,myThid)
474 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_3,31,
475 & myIt,myThid)
476 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,SW_STORE_4,32,
477 & myIt,myThid)
478
479 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_UE,33,
480 & myIt,myThid)
481 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_VE,34,
482 & myIt,myThid)
483 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_TE,35,
484 & myIt,myThid)
485 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_SE,36,
486 & myIt,myThid)
487 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_UW,37,
488 & myIt,myThid)
489 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_VW,38,
490 & myIt,myThid)
491 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_TW,39,
492 & myIt,myThid)
493 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_SW,40,
494 & myIt,myThid)
495 #ifdef ALLOW_NONHYDROSTATIC
496 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_1,41,
497 & myIt,myThid)
498 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_2,42,
499 & myIt,myThid)
500 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_3,43,
501 & myIt,myThid)
502 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WE_STORE_4,44,
503 & myIt,myThid)
504 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_1,45,
505 & myIt,myThid)
506 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_2,46,
507 & myIt,myThid)
508 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_3,47,
509 & myIt,myThid)
510 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,WW_STORE_4,48,
511 & myIt,myThid)
512 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_WE,49,
513 & myIt,myThid)
514 CALL MDSWRITEFIELDYZ(fn,prec,lgf,'RL',Nr,CVEL_WW,50,
515 & myIt,myThid)
516 #endif
517
518 #endif /* ALLOW_ORLANSKI */
519 RETURN
520 END
521
  ViewVC Help
Powered by ViewVC 1.1.22