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

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

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

revision 1.2 by heimbach, Tue Jun 24 16:07:06 2003 UTC revision 1.3 by heimbach, Fri Jul 18 21:10:16 2003 UTC
# Line 118  C-- Line 118  C--
118        write(fnamehfacc(1:80),'(2a,i10.10)')        write(fnamehfacc(1:80),'(2a,i10.10)')
119       &     xx_hfacc_file(1:il),'.',optimcycle       &     xx_hfacc_file(1:il),'.',optimcycle
120  #ifdef ALLOW_HFACC3D_CONTROL  #ifdef ALLOW_HFACC3D_CONTROL
121        call active_read_xyz( fnamehfacc, tmpfld3d, 1,        call active_read_xyz_loc( fnamehfacc, tmpfld3d, 1,
122       &                      doglobalread, ladinit, optimcycle,       &                      doglobalread, ladinit, optimcycle,
123       &                      mythid, xx_hfacc_dummy )       &                      mythid, xx_hfacc_dummy )
124        do bj = jtlo,jthi        do bj = jtlo,jthi
# Line 134  C-- Line 134  C--
134         enddo         enddo
135        enddo        enddo
136  #else /* ALLOW_HFACC3D_CONTROL undefined */  #else /* ALLOW_HFACC3D_CONTROL undefined */
137        call active_read_xy( fnamehfacc, tmpfld2d, 1,        call active_read_xy_loc( fnamehfacc, tmpfld2d, 1,
138       &                     doglobalread, ladinit, optimcycle,       &                     doglobalread, ladinit, optimcycle,
139       &                     mythid, xx_hfacc_dummy )       &                     mythid, xx_hfacc_dummy )
140        do bj = jtlo,jthi        do bj = jtlo,jthi
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22