93 |
il=ilnblnk( xx_theta_file ) |
il=ilnblnk( xx_theta_file ) |
94 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
95 |
& xx_theta_file(1:il),'.',optimcycle |
& xx_theta_file(1:il),'.',optimcycle |
96 |
call active_read_xyz_loc( fnamegeneric, tmpfld3d, 1, |
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
97 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
98 |
& mythid, xx_theta_dummy ) |
& mythid, xx_theta_dummy ) |
99 |
|
|
131 |
il=ilnblnk( xx_salt_file ) |
il=ilnblnk( xx_salt_file ) |
132 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
133 |
& xx_salt_file(1:il),'.',optimcycle |
& xx_salt_file(1:il),'.',optimcycle |
134 |
call active_read_xyz_loc( fnamegeneric, tmpfld3d, 1, |
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
135 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
136 |
& mythid, xx_salt_dummy ) |
& mythid, xx_salt_dummy ) |
137 |
|
|
168 |
il=ilnblnk( xx_tr1_file ) |
il=ilnblnk( xx_tr1_file ) |
169 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
170 |
& xx_tr1_file(1:il),'.',optimcycle |
& xx_tr1_file(1:il),'.',optimcycle |
171 |
call active_read_xyz_loc( fnamegeneric, tmpfld3d, 1, |
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
172 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
173 |
& mythid, xx_tr1_dummy ) |
& mythid, xx_tr1_dummy ) |
174 |
|
|
192 |
il=ilnblnk( xx_sst_file ) |
il=ilnblnk( xx_sst_file ) |
193 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
194 |
& xx_sst_file(1:il),'.',optimcycle |
& xx_sst_file(1:il),'.',optimcycle |
195 |
call active_read_xy_loc ( fnamegeneric, tmpfld2d, 1, |
call active_read_xy ( fnamegeneric, tmpfld2d, 1, |
196 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
197 |
& mythid, xx_sst_dummy ) |
& mythid, xx_sst_dummy ) |
198 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
213 |
il=ilnblnk( xx_sss_file ) |
il=ilnblnk( xx_sss_file ) |
214 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
215 |
& xx_sss_file(1:il),'.',optimcycle |
& xx_sss_file(1:il),'.',optimcycle |
216 |
call active_read_xy_loc ( fnamegeneric, tmpfld2d, 1, |
call active_read_xy ( fnamegeneric, tmpfld2d, 1, |
217 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
218 |
& mythid, xx_sss_dummy ) |
& mythid, xx_sss_dummy ) |
219 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
234 |
il=ilnblnk( xx_diffkr_file ) |
il=ilnblnk( xx_diffkr_file ) |
235 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
236 |
& xx_diffkr_file(1:il),'.',optimcycle |
& xx_diffkr_file(1:il),'.',optimcycle |
237 |
call active_read_xyz_loc( fnamegeneric, tmpfld3d, 1, |
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
238 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
239 |
& mythid, xx_diffkr_dummy ) |
& mythid, xx_diffkr_dummy ) |
240 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
256 |
il=ilnblnk( xx_kapgm_file ) |
il=ilnblnk( xx_kapgm_file ) |
257 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
258 |
& xx_kapgm_file(1:il),'.',optimcycle |
& xx_kapgm_file(1:il),'.',optimcycle |
259 |
call active_read_xyz_loc( fnamegeneric, tmpfld3d, 1, |
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
260 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
261 |
& mythid, xx_kapgm_dummy ) |
& mythid, xx_kapgm_dummy ) |
262 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
278 |
il=ilnblnk( xx_efluxy_file ) |
il=ilnblnk( xx_efluxy_file ) |
279 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
280 |
& xx_efluxy_file(1:il),'.',optimcycle |
& xx_efluxy_file(1:il),'.',optimcycle |
281 |
call active_read_xyz_loc( fnamegeneric, tmpfld3d, 1, |
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
282 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
283 |
& mythid, xx_efluxy_dummy ) |
& mythid, xx_efluxy_dummy ) |
284 |
|
|
305 |
il=ilnblnk( xx_efluxp_file ) |
il=ilnblnk( xx_efluxp_file ) |
306 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
307 |
& xx_efluxp_file(1:il),'.',optimcycle |
& xx_efluxp_file(1:il),'.',optimcycle |
308 |
call active_read_xyz_loc( fnamegeneric, tmpfld3d, 1, |
call active_read_xyz( fnamegeneric, tmpfld3d, 1, |
309 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
310 |
& mythid, xx_efluxp_dummy ) |
& mythid, xx_efluxp_dummy ) |
311 |
|
|
334 |
il=ilnblnk( xx_bottomdrag_file ) |
il=ilnblnk( xx_bottomdrag_file ) |
335 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
336 |
& xx_bottomdrag_file(1:il),'.',optimcycle |
& xx_bottomdrag_file(1:il),'.',optimcycle |
337 |
call active_read_xy_loc ( fnamegeneric, tmpfld2d, 1, |
call active_read_xy ( fnamegeneric, tmpfld2d, 1, |
338 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
339 |
& mythid, xx_bottomdrag_dummy ) |
& mythid, xx_bottomdrag_dummy ) |
340 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
452 |
il=ilnblnk( xx_etan_file ) |
il=ilnblnk( xx_etan_file ) |
453 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
454 |
& xx_etan_file(1:il),'.',optimcycle |
& xx_etan_file(1:il),'.',optimcycle |
455 |
call active_read_xy_loc ( fnamegeneric, tmpfld2d, 1, |
call active_read_xy ( fnamegeneric, tmpfld2d, 1, |
456 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
457 |
& mythid, xx_etan_dummy ) |
& mythid, xx_etan_dummy ) |
458 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
477 |
il=ilnblnk( xx_relaxsst_file ) |
il=ilnblnk( xx_relaxsst_file ) |
478 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
479 |
& xx_relaxsst_file(1:il),'.',optimcycle |
& xx_relaxsst_file(1:il),'.',optimcycle |
480 |
call active_read_xy_loc ( fnamegeneric, tmpfld2d, 1, |
call active_read_xy ( fnamegeneric, tmpfld2d, 1, |
481 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
482 |
& mythid, xx_relaxsst_dummy ) |
& mythid, xx_relaxsst_dummy ) |
483 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
498 |
il=ilnblnk( xx_relaxsss_file ) |
il=ilnblnk( xx_relaxsss_file ) |
499 |
write(fnamegeneric(1:80),'(2a,i10.10)') |
write(fnamegeneric(1:80),'(2a,i10.10)') |
500 |
& xx_relaxsss_file(1:il),'.',optimcycle |
& xx_relaxsss_file(1:il),'.',optimcycle |
501 |
call active_read_xy_loc ( fnamegeneric, tmpfld2d, 1, |
call active_read_xy ( fnamegeneric, tmpfld2d, 1, |
502 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
503 |
& mythid, xx_relaxsss_dummy ) |
& mythid, xx_relaxsss_dummy ) |
504 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |