85 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
86 |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
87 |
|
|
88 |
call active_read_xyz_loc( fname, tmpfld3d, 1, |
call active_read_xyz( fname, tmpfld3d, 1, |
89 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
90 |
& mythid, dummy) |
& mythid, dummy) |
91 |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
97 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
98 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
99 |
& yadmark, xx_salt_file(1:il),'.',optimcycle |
& yadmark, xx_salt_file(1:il),'.',optimcycle |
100 |
call active_read_xyz_loc( fname, tmpfld3d, 1, |
call active_read_xyz( fname, tmpfld3d, 1, |
101 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
102 |
& mythid, dummy) |
& mythid, dummy) |
103 |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
xx_comp = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
110 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
111 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
112 |
& yadmark, xx_hflux_file(1:il),'.',optimcycle |
& yadmark, xx_hflux_file(1:il),'.',optimcycle |
113 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
114 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
115 |
& mythid, dummy) |
& mythid, dummy) |
116 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
122 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
123 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
124 |
& yadmark, xx_sflux_file(1:il),'.',optimcycle |
& yadmark, xx_sflux_file(1:il),'.',optimcycle |
125 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
126 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
127 |
& mythid, dummy) |
& mythid, dummy) |
128 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
134 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
135 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
136 |
& yadmark, xx_tauu_file(1:il),'.',optimcycle |
& yadmark, xx_tauu_file(1:il),'.',optimcycle |
137 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
138 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
139 |
& mythid, dummy) |
& mythid, dummy) |
140 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
146 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
147 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
148 |
& yadmark, xx_tauv_file(1:il),'.',optimcycle |
& yadmark, xx_tauv_file(1:il),'.',optimcycle |
149 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
150 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
151 |
& mythid, dummy) |
& mythid, dummy) |
152 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
158 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
159 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
160 |
& yadmark, xx_atemp_file(1:il),'.',optimcycle |
& yadmark, xx_atemp_file(1:il),'.',optimcycle |
161 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
162 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
163 |
& mythid, dummy) |
& mythid, dummy) |
164 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
170 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
171 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
172 |
& yadmark, xx_aqh_file(1:il),'.',optimcycle |
& yadmark, xx_aqh_file(1:il),'.',optimcycle |
173 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
174 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
175 |
& mythid, dummy) |
& mythid, dummy) |
176 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
182 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
183 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
184 |
& yadmark, xx_uwind_file(1:il),'.',optimcycle |
& yadmark, xx_uwind_file(1:il),'.',optimcycle |
185 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
186 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
187 |
& mythid, dummy) |
& mythid, dummy) |
188 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
194 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
195 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
196 |
& yadmark, xx_vwind_file(1:il),'.',optimcycle |
& yadmark, xx_vwind_file(1:il),'.',optimcycle |
197 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
198 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
199 |
& mythid, dummy) |
& mythid, dummy) |
200 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
207 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
208 |
& yadmark, xx_obcsn_file(1:il),'.',optimcycle |
& yadmark, xx_obcsn_file(1:il),'.',optimcycle |
209 |
|
|
210 |
call active_read_xz_loc( fname, tmpfldxz, icvrec, |
call active_read_xz( fname, tmpfldxz, icvrec, |
211 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
212 |
& mythid, dummy) |
& mythid, dummy) |
213 |
|
|
222 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
223 |
& yadmark, xx_obcss_file(1:il),'.',optimcycle |
& yadmark, xx_obcss_file(1:il),'.',optimcycle |
224 |
|
|
225 |
call active_read_xz_loc( fname, tmpfldxz, icvrec, |
call active_read_xz( fname, tmpfldxz, icvrec, |
226 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
227 |
& mythid, dummy) |
& mythid, dummy) |
228 |
|
|
237 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
238 |
& yadmark, xx_obcsw_file(1:il),'.',optimcycle |
& yadmark, xx_obcsw_file(1:il),'.',optimcycle |
239 |
|
|
240 |
call active_read_yz_loc( fname, tmpfldyz, icvrec, |
call active_read_yz( fname, tmpfldyz, icvrec, |
241 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
242 |
& mythid, dummy) |
& mythid, dummy) |
243 |
|
|
252 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
253 |
& yadmark, xx_obcse_file(1:il),'.',optimcycle |
& yadmark, xx_obcse_file(1:il),'.',optimcycle |
254 |
|
|
255 |
call active_read_yz_loc( fname, tmpfldyz, icvrec, |
call active_read_yz( fname, tmpfldyz, icvrec, |
256 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
257 |
& mythid, dummy) |
& mythid, dummy) |
258 |
|
|
267 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
268 |
& yadmark, xx_diffkr_file(1:il),'.',optimcycle |
& yadmark, xx_diffkr_file(1:il),'.',optimcycle |
269 |
|
|
270 |
call active_read_xyz_loc( fname, tmpfld3d, 1, |
call active_read_xyz( fname, tmpfld3d, 1, |
271 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
272 |
& mythid, dummy) |
& mythid, dummy) |
273 |
|
|
282 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
283 |
& yadmark, xx_kapgm_file(1:il),'.',optimcycle |
& yadmark, xx_kapgm_file(1:il),'.',optimcycle |
284 |
|
|
285 |
call active_read_xyz_loc( fname, tmpfld3d, 1, |
call active_read_xyz( fname, tmpfld3d, 1, |
286 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
287 |
& mythid, dummy) |
& mythid, dummy) |
288 |
|
|
297 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
298 |
& yadmark, xx_tr1_file(1:il),'.',optimcycle |
& yadmark, xx_tr1_file(1:il),'.',optimcycle |
299 |
|
|
300 |
call active_read_xyz_loc( fname, tmpfld3d, 1, |
call active_read_xyz( fname, tmpfld3d, 1, |
301 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
302 |
& mythid, dummy) |
& mythid, dummy) |
303 |
|
|
311 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
312 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
313 |
& yadmark, xx_sst_file(1:il),'.',optimcycle |
& yadmark, xx_sst_file(1:il),'.',optimcycle |
314 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
315 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
316 |
& mythid, dummy) |
& mythid, dummy) |
317 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
323 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
324 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
325 |
& yadmark, xx_sss_file(1:il),'.',optimcycle |
& yadmark, xx_sss_file(1:il),'.',optimcycle |
326 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
327 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
328 |
& mythid, dummy) |
& mythid, dummy) |
329 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
335 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
336 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
337 |
& yadmark, xx_depth_file(1:il),'.',optimcycle |
& yadmark, xx_depth_file(1:il),'.',optimcycle |
338 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
339 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
340 |
& mythid, dummy) |
& mythid, dummy) |
341 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
348 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
349 |
& yadmark, xx_efluxy_file(1:il),'.',optimcycle |
& yadmark, xx_efluxy_file(1:il),'.',optimcycle |
350 |
|
|
351 |
call active_read_xyz_loc( fname, tmpfld3d, 1, |
call active_read_xyz( fname, tmpfld3d, 1, |
352 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
353 |
& mythid, dummy) |
& mythid, dummy) |
354 |
|
|
363 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
364 |
& yadmark, xx_efluxp_file(1:il),'.',optimcycle |
& yadmark, xx_efluxp_file(1:il),'.',optimcycle |
365 |
|
|
366 |
call active_read_xyz_loc( fname, tmpfld3d, 1, |
call active_read_xyz( fname, tmpfld3d, 1, |
367 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
368 |
& mythid, dummy) |
& mythid, dummy) |
369 |
|
|
377 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
378 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
379 |
& yadmark, xx_precip_file(1:il),'.',optimcycle |
& yadmark, xx_precip_file(1:il),'.',optimcycle |
380 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
381 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
382 |
& mythid, dummy) |
& mythid, dummy) |
383 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
389 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
390 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
391 |
& yadmark, xx_swflux_file(1:il),'.',optimcycle |
& yadmark, xx_swflux_file(1:il),'.',optimcycle |
392 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
393 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
394 |
& mythid, dummy) |
& mythid, dummy) |
395 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
401 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
402 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
403 |
& yadmark, xx_swdown_file(1:il),'.',optimcycle |
& yadmark, xx_swdown_file(1:il),'.',optimcycle |
404 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
405 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
406 |
& mythid, dummy) |
& mythid, dummy) |
407 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
413 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
414 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
415 |
& yadmark, xx_lwflux_file(1:il),'.',optimcycle |
& yadmark, xx_lwflux_file(1:il),'.',optimcycle |
416 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
417 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
418 |
& mythid, dummy) |
& mythid, dummy) |
419 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
425 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
426 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
427 |
& yadmark, xx_lwdown_file(1:il),'.',optimcycle |
& yadmark, xx_lwdown_file(1:il),'.',optimcycle |
428 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
429 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
430 |
& mythid, dummy) |
& mythid, dummy) |
431 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
437 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
438 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
439 |
& yadmark, xx_evap_file(1:il),'.',optimcycle |
& yadmark, xx_evap_file(1:il),'.',optimcycle |
440 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
441 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
442 |
& mythid, dummy) |
& mythid, dummy) |
443 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
449 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
450 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
451 |
& yadmark, xx_snowprecip_file(1:il),'.',optimcycle |
& yadmark, xx_snowprecip_file(1:il),'.',optimcycle |
452 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
453 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
454 |
& mythid, dummy) |
& mythid, dummy) |
455 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
462 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
463 |
& yadmark, xx_apressure_file(1:il),'.',optimcycle |
& yadmark, xx_apressure_file(1:il),'.',optimcycle |
464 |
|
|
465 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
466 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
467 |
& mythid, dummy) |
& mythid, dummy) |
468 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
474 |
write(fname(1:80),'(80a)') ' ' |
write(fname(1:80),'(80a)') ' ' |
475 |
write(fname(1:80),'(3a,i10.10)') |
write(fname(1:80),'(3a,i10.10)') |
476 |
& yadmark, xx_runoff_file(1:il),'.',optimcycle |
& yadmark, xx_runoff_file(1:il),'.',optimcycle |
477 |
call active_read_xy_loc( fname, tmpfld2d, icvrec, |
call active_read_xy( fname, tmpfld2d, icvrec, |
478 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
479 |
& mythid, dummy) |
& mythid, dummy) |
480 |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
xx_comp = tmpfld2d( itilepos,jtilepos,itile,jtile ) |