79 |
il=ilnblnk( xx_tauu_file ) |
il=ilnblnk( xx_tauu_file ) |
80 |
write(fnametauu(1:80),'(2a,i10.10)') |
write(fnametauu(1:80),'(2a,i10.10)') |
81 |
& xx_tauu_file(1:il),'.',optimcycle |
& xx_tauu_file(1:il),'.',optimcycle |
82 |
call active_read_xy_loc ( fnametauu, tmpfld2d, 1, |
call active_read_xy ( fnametauu, tmpfld2d, 1, |
83 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
84 |
& mythid, xx_tauu_dummy ) |
& mythid, xx_tauu_dummy ) |
85 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
98 |
il=ilnblnk( xx_tauv_file ) |
il=ilnblnk( xx_tauv_file ) |
99 |
write(fnametauv(1:80),'(2a,i10.10)') |
write(fnametauv(1:80),'(2a,i10.10)') |
100 |
& xx_tauv_file(1:il),'.',optimcycle |
& xx_tauv_file(1:il),'.',optimcycle |
101 |
call active_read_xy_loc ( fnametauv, tmpfld2d, 1, |
call active_read_xy ( fnametauv, tmpfld2d, 1, |
102 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
103 |
& mythid, xx_tauv_dummy ) |
& mythid, xx_tauv_dummy ) |
104 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
117 |
il=ilnblnk( xx_sflux_file ) |
il=ilnblnk( xx_sflux_file ) |
118 |
write(fnamesflux(1:80),'(2a,i10.10)') |
write(fnamesflux(1:80),'(2a,i10.10)') |
119 |
& xx_sflux_file(1:il),'.',optimcycle |
& xx_sflux_file(1:il),'.',optimcycle |
120 |
call active_read_xy_loc ( fnamesflux, tmpfld2d, 1, |
call active_read_xy ( fnamesflux, tmpfld2d, 1, |
121 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
122 |
& mythid, xx_sflux_dummy ) |
& mythid, xx_sflux_dummy ) |
123 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
136 |
il=ilnblnk( xx_hflux_file ) |
il=ilnblnk( xx_hflux_file ) |
137 |
write(fnamehflux(1:80),'(2a,i10.10)') |
write(fnamehflux(1:80),'(2a,i10.10)') |
138 |
& xx_hflux_file(1:il),'.',optimcycle |
& xx_hflux_file(1:il),'.',optimcycle |
139 |
call active_read_xy_loc ( fnamehflux, tmpfld2d, 1, |
call active_read_xy ( fnamehflux, tmpfld2d, 1, |
140 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
141 |
& mythid, xx_hflux_dummy ) |
& mythid, xx_hflux_dummy ) |
142 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
155 |
il=ilnblnk( xx_sss_file ) |
il=ilnblnk( xx_sss_file ) |
156 |
write(fnamesss(1:80),'(2a,i10.10)') |
write(fnamesss(1:80),'(2a,i10.10)') |
157 |
& xx_sss_file(1:il),'.',optimcycle |
& xx_sss_file(1:il),'.',optimcycle |
158 |
call active_read_xy_loc ( fnamesss, tmpfld2d, 1, |
call active_read_xy ( fnamesss, tmpfld2d, 1, |
159 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
160 |
& mythid, xx_sss_dummy ) |
& mythid, xx_sss_dummy ) |
161 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
174 |
il=ilnblnk( xx_sst_file ) |
il=ilnblnk( xx_sst_file ) |
175 |
write(fnamesst(1:80),'(2a,i10.10)') |
write(fnamesst(1:80),'(2a,i10.10)') |
176 |
& xx_sst_file(1:il),'.',optimcycle |
& xx_sst_file(1:il),'.',optimcycle |
177 |
call active_read_xy_loc ( fnamesst, tmpfld2d, 1, |
call active_read_xy ( fnamesst, tmpfld2d, 1, |
178 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
179 |
& mythid, xx_sst_dummy ) |
& mythid, xx_sst_dummy ) |
180 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |