--- MITgcm/pkg/grdchk/grdchk_getxx.F 2003/06/24 16:08:45 1.8 +++ MITgcm/pkg/grdchk/grdchk_getxx.F 2003/07/18 21:10:16 1.9 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/grdchk/grdchk_getxx.F,v 1.8 2003/06/24 16:08:45 heimbach Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/grdchk/grdchk_getxx.F,v 1.9 2003/07/18 21:10:16 heimbach Exp $ #include "CTRL_CPPOPTIONS.h" @@ -94,7 +94,7 @@ & xx_theta_file(1:il),'.',optimcycle end if - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -102,7 +102,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xyz( fname, tmpfld3d, 1, + call active_write_xyz_loc( fname, tmpfld3d, 1, & optimcycle, & mythid, dummy) @@ -119,7 +119,7 @@ & xx_salt_file(1:il),'.',optimcycle end if - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -127,7 +127,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xyz( fname, tmpfld3d, 1, + call active_write_xyz_loc( fname, tmpfld3d, 1, & optimcycle, & mythid, dummy) @@ -144,7 +144,7 @@ & xx_hflux_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -152,7 +152,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -169,7 +169,7 @@ & xx_sflux_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -177,7 +177,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -194,7 +194,7 @@ & xx_tauu_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -202,7 +202,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -219,7 +219,7 @@ & xx_tauv_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -227,7 +227,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -244,7 +244,7 @@ & xx_atemp_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -252,7 +252,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -269,7 +269,7 @@ & xx_aqh_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -277,7 +277,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -294,7 +294,7 @@ & xx_uwind_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -302,7 +302,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -319,7 +319,7 @@ & xx_vwind_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -327,7 +327,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -344,7 +344,7 @@ & xx_obcsn_file(1:il),'.',optimcycle end if - call active_read_xz( fname, tmpfldxz, icvrec, + call active_read_xz_loc( fname, tmpfldxz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -352,7 +352,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfldxz( itilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xz( fname, tmpfldxz, icvrec, + call active_write_xz_loc( fname, tmpfldxz, icvrec, & optimcycle, & mythid, dummy) @@ -369,7 +369,7 @@ & xx_obcss_file(1:il),'.',optimcycle end if - call active_read_xz( fname, tmpfldxz, icvrec, + call active_read_xz_loc( fname, tmpfldxz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -377,7 +377,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfldxz( itilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xz( fname, tmpfldxz, icvrec, + call active_write_xz_loc( fname, tmpfldxz, icvrec, & optimcycle, & mythid, dummy) @@ -394,7 +394,7 @@ & xx_obcsw_file(1:il),'.',optimcycle end if - call active_read_yz( fname, tmpfldyz, icvrec, + call active_read_yz_loc( fname, tmpfldyz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -402,7 +402,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_yz( fname, tmpfldyz, icvrec, + call active_write_yz_loc( fname, tmpfldyz, icvrec, & optimcycle, & mythid, dummy) @@ -419,7 +419,7 @@ & xx_obcse_file(1:il),'.',optimcycle end if - call active_read_yz( fname, tmpfldyz, icvrec, + call active_read_yz_loc( fname, tmpfldyz, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -427,7 +427,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfldyz( jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_yz( fname, tmpfldyz, icvrec, + call active_write_yz_loc( fname, tmpfldyz, icvrec, & optimcycle, & mythid, dummy) @@ -444,7 +444,7 @@ & xx_tr1_file(1:il),'.',optimcycle end if - call active_read_xyz( fname, tmpfld3d, icvrec, + call active_read_xyz_loc( fname, tmpfld3d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -452,7 +452,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xyz( fname, tmpfld3d, icvrec, + call active_write_xyz_loc( fname, tmpfld3d, icvrec, & optimcycle, & mythid, dummy) @@ -469,7 +469,7 @@ & xx_sst_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -477,7 +477,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -494,7 +494,7 @@ & xx_sss_file(1:il),'.',optimcycle end if - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -502,7 +502,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -521,7 +521,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) @@ -529,13 +529,13 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xyz( fname, tmpfld3d, icvrec, + call active_write_xyz_loc( fname, tmpfld3d, icvrec, & optimcycle, & mythid, dummy) #else - call active_read_xy( fname, tmpfld2d, icvrec, + call active_read_xy_loc( fname, tmpfld2d, icvrec, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -543,7 +543,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert - call active_write_xy( fname, tmpfld2d, icvrec, + call active_write_xy_loc( fname, tmpfld2d, icvrec, & optimcycle, & mythid, dummy) @@ -562,7 +562,7 @@ & xx_efluxy_file(1:il),'.',optimcycle end if - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -570,7 +570,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xyz( fname, tmpfld3d, 1, + call active_write_xyz_loc( fname, tmpfld3d, 1, & optimcycle, & mythid, dummy) @@ -588,7 +588,7 @@ & xx_efluxp_file(1:il),'.',optimcycle end if - call active_read_xyz( fname, tmpfld3d, 1, + call active_read_xyz_loc( fname, tmpfld3d, 1, & doglobalread, ladinit, optimcycle, & mythid, dummy) @@ -596,7 +596,7 @@ xx_comp_pert = xx_comp_ref + localEps tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert - call active_write_xyz( fname, tmpfld3d, 1, + call active_write_xyz_loc( fname, tmpfld3d, 1, & optimcycle, & mythid, dummy)