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

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

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

Revision 1.2 - (hide annotations) (download)
Tue May 29 14:01:39 2001 UTC (23 years 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 heimbach 1.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 adcroft 1.2 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 heimbach 1.1
166 adcroft 1.2 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 heimbach 1.1
183 adcroft 1.2 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 heimbach 1.1
204     C Fill in edge regions
205 adcroft 1.2 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 heimbach 1.1
222 adcroft 1.2 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 heimbach 1.1
239 adcroft 1.2 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 heimbach 1.1
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