/[MITgcm]/MITgcm/pkg/ctrl/ctrl_map_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_map_forcing.F

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

revision 1.4.6.1 by heimbach, Fri Mar 7 03:06:41 2003 UTC revision 1.4.6.2 by heimbach, Wed Jul 16 16:38:58 2003 UTC
# Line 79  c--   tauu0. Line 79  c--   tauu0.
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 ( fnametauu, tmpfld2d, 1,        call active_read_xy_loc ( 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
# Line 98  c--   tauv0. Line 98  c--   tauv0.
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 ( fnametauv, tmpfld2d, 1,        call active_read_xy_loc ( 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
# Line 117  c--   sflux0. Line 117  c--   sflux0.
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 ( fnamesflux, tmpfld2d, 1,        call active_read_xy_loc ( 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
# Line 136  c--   hflux0. Line 136  c--   hflux0.
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 ( fnamehflux, tmpfld2d, 1,        call active_read_xy_loc ( 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
# Line 155  c--   sss0. Line 155  c--   sss0.
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 ( fnamesss, tmpfld2d, 1,        call active_read_xy_loc ( 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
# Line 174  c--   sst0. Line 174  c--   sst0.
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 ( fnamesst, tmpfld2d, 1,        call active_read_xy_loc ( 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
Legend:
Removed from v.1.4.6.1  
changed lines
  Added in v.1.4.6.2
  ViewVC Help
Powered by ViewVC 1.1.22