--- MITgcm/pkg/grdchk/grdchk_getadxx.F 2003/06/24 16:08:45 1.8 +++ MITgcm/pkg/grdchk/grdchk_getadxx.F 2003/07/18 21:10:16 1.9 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/grdchk/grdchk_getadxx.F,v 1.8 2003/06/24 16:08:45 heimbach Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/grdchk/grdchk_getadxx.F,v 1.9 2003/07/18 21:10:16 heimbach Exp $ #include "CTRL_CPPOPTIONS.h" @@ -61,6 +61,8 @@ character*(80) fname + integer i,j,k + c-- == external == integer ilnblnk @@ -83,7 +85,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_theta_file(1:il),'.',optimcycle - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -98,7 +100,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_salt_file(1:il),'.',optimcycle - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -113,7 +115,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_hflux_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -128,7 +130,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_sflux_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -143,7 +145,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_tauu_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -158,7 +160,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_tauv_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -173,7 +175,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_atemp_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -188,7 +190,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_aqh_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -203,7 +205,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_uwind_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -218,7 +220,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_vwind_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -233,7 +235,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_obcsn_file(1:il),'.',optimcycle - call active_read_xz( fname, tmpfldxz, icvrec, + call active_read_xz_loc( fname, tmpfldxz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -248,7 +250,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_obcss_file(1:il),'.',optimcycle - call active_read_xz( fname, tmpfldxz, icvrec, + call active_read_xz_loc( fname, tmpfldxz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -263,7 +265,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_obcsw_file(1:il),'.',optimcycle - call active_read_yz( fname, tmpfldyz, icvrec, + call active_read_yz_loc( fname, tmpfldyz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -278,7 +280,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_obcse_file(1:il),'.',optimcycle - call active_read_yz( fname, tmpfldyz, icvrec, + call active_read_yz_loc( fname, tmpfldyz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -293,7 +295,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_tr1_file(1:il),'.',optimcycle - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -308,7 +310,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_sst_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -323,7 +325,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_sss_file(1:il),'.',optimcycle - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -340,7 +342,7 @@ #ifdef ALLOW_HFACC3D_CONTROL - call active_read_xyz( fname, tmpfld3d, icvrec, + call active_read_xyz_loc( fname, tmpfld3d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -348,7 +350,7 @@ #else - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -364,7 +366,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_efluxy_file(1:il),'.',optimcycle - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -379,7 +381,7 @@ write(fname(1:80),'(3a,i10.10)') & yadmark, xx_efluxp_file(1:il),'.',optimcycle - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy)