C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/rw/rw_ad.flow,v 1.5 2007/10/24 04:38:04 heimbach Exp $ C $Name: $ C---------------------------------------- C subroutine set_write_global_fld C---------------------------------------- CADJ SUBROUTINE set_write_global_fld INPUT = 1 CADJ SUBROUTINE set_write_global_fld OUTPUT = C---------------------------------------- C subroutine write_fld_xy_rs C---------------------------------------- CADJ SUBROUTINE write_fld_xy_rs INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xy_rs OUTPUT = C---------------------------------------- C subroutine write_fld_xy_rl C---------------------------------------- CADJ SUBROUTINE write_fld_xy_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xy_rl OUTPUT = C---------------------------------------- C subroutine write_fld_xyz_rs C---------------------------------------- CADJ SUBROUTINE write_fld_xyz_rs INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xyz_rs OUTPUT = C---------------------------------------- C subroutine write_fld_xyz_rl C---------------------------------------- CADJ SUBROUTINE write_fld_xyz_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_fld_xyz_rl OUTPUT = C---------------------------------------- C subroutine write_local_rl C---------------------------------------- CADJ SUBROUTINE write_local_rl INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE write_local_rl OUTPUT = C---------------------------------------- C subroutine write_local_rs C---------------------------------------- CADJ SUBROUTINE write_local_rs INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE write_local_rs OUTPUT = C---------------------------------------- C subroutine set_write_global_rec C---------------------------------------- CADJ SUBROUTINE set_write_global_rec INPUT = 1 CADJ SUBROUTINE set_write_global_rec OUTPUT = C---------------------------------------- C subroutine write_rec_xy_rl C---------------------------------------- CADJ SUBROUTINE write_rec_xy_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_rec_xy_rl OUTPUT = C---------------------------------------- C subroutine write_rec_xyz_rs C---------------------------------------- CADJ SUBROUTINE write_rec_xyz_rs INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_rec_xyz_rs OUTPUT = C---------------------------------------- C subroutine write_rec_xyz_rl C---------------------------------------- CADJ SUBROUTINE write_rec_xyz_rl INPUT = 1,2,3,4,5 CADJ SUBROUTINE write_rec_xyz_rl OUTPUT = C---------------------------------------- C subroutine READ_MFLDS_CHECK C---------------------------------------- CADJ SUBROUTINE READ_MFLDS_CHECK INPUT = 2,3 CADJ SUBROUTINE READ_MFLDS_CHECK OUTPUT = 1,2, C---------------------------------------- C subroutine READ_MFLDS_INIT C---------------------------------------- CADJ SUBROUTINE READ_MFLDS_INIT INPUT = 1 CADJ SUBROUTINE READ_MFLDS_INIT OUTPUT = C---------------------------------------- C subroutine READ_MFLDS_SET C---------------------------------------- CADJ SUBROUTINE READ_MFLDS_SET INPUT = 1, 4,5,6 CADJ SUBROUTINE READ_MFLDS_SET OUTPUT = 2,3 C---------------------------------------- C subroutine READ_MFLDS_3D_RL C---------------------------------------- CADJ SUBROUTINE READ_MFLDS_3D_RL INPUT = 1, 3,4,5,6,7 CADJ SUBROUTINE READ_MFLDS_3D_RL OUTPUT = 2,3,