C $Header: /u/gcmpack/MITgcm/pkg/mdsio/mdsio_ad.flow,v 1.12 2015/11/19 20:27:00 gforget Exp $ C $Name: $ C---------------------------------------- C subroutine mds_read_field C---------------------------------------- CADJ SUBROUTINE mds_read_field INPUT = 1,2,3,4,5,6,7, 10,11 CADJ SUBROUTINE mds_read_field OUTPUT = 8,9 CADJ SUBROUTINE mds_read_field DEPEND = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mds_read_field REQUIRED C---------------------------------------- C subroutine mds_write_field C---------------------------------------- CADJ SUBROUTINE mds_write_field INPUT = 1,2,3,4,5,6,7,8,9,10,11,12,13 CADJ SUBROUTINE mds_write_field OUTPUT = C---------------------------------------- C subroutine mds_read_rec_xz C---------------------------------------- cCADJ SUBROUTINE mds_read_rec_xz INPUT = 1,2,3,4,5, 8,9 cCADJ SUBROUTINE mds_read_rec_xz OUTPUT = 6,7 cCADJ SUBROUTINE mds_read_rec_xz DEPEND = 1,2,3,4,5,6,7,8,9 cCADJ SUBROUTINE mds_read_rec_xz REQUIRED C---------------------------------------- C subroutine mds_read_rec_yz C---------------------------------------- cCADJ SUBROUTINE mds_read_rec_yz INPUT = 1,2,3,4,5, 8,9 cCADJ SUBROUTINE mds_read_rec_yz OUTPUT = 6,7 cCADJ SUBROUTINE mds_read_rec_yz DEPEND = 1,2,3,4,5,6,7,8,9 cCADJ SUBROUTINE mds_read_rec_yz REQUIRED C---------------------------------------- C subroutine mds_read_sec_xz C---------------------------------------- CADJ SUBROUTINE mds_read_sec_xz INPUT = 1,2,3,4,5, 8,9 CADJ SUBROUTINE mds_read_sec_xz OUTPUT = 6,7 CADJ SUBROUTINE mds_read_sec_xz DEPEND = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mds_read_sec_xz REQUIRED C---------------------------------------- C subroutine mds_read_sec_yz C---------------------------------------- CADJ SUBROUTINE mds_read_sec_yz INPUT = 1,2,3,4,5, 8,9 CADJ SUBROUTINE mds_read_sec_yz OUTPUT = 6,7 CADJ SUBROUTINE mds_read_sec_yz DEPEND = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mds_read_sec_yz REQUIRED C---------------------------------------- C subroutine mds_write_sec_xz C---------------------------------------- CADJ SUBROUTINE mds_write_sec_xz INPUT = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mds_write_sec_xz OUTPUT = C---------------------------------------- C subroutine mds_write_sec_yz C---------------------------------------- CADJ SUBROUTINE mds_write_sec_yz INPUT = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mds_write_sec_yz OUTPUT = C---------------------------------------- C subroutine mdsreadfield C---------------------------------------- CADJ SUBROUTINE mdsreadfield INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfield OUTPUT = 5 CADJ SUBROUTINE mdsreadfield DEPEND = 1,2,3,4,5,6,7 CADJ SUBROUTINE mdsreadfield REQUIRED C---------------------------------------- C subroutine mdswritefield C---------------------------------------- CADJ SUBROUTINE mdswritefield INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefield OUTPUT = C---------------------------------------- C subroutine mdsreadfieldxz C---------------------------------------- CADJ SUBROUTINE mdsreadfieldxz INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldxz OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldxz C---------------------------------------- CADJ SUBROUTINE mdswritefieldxz INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldxz OUTPUT = C---------------------------------------- C subroutine mdsreadfieldyz C---------------------------------------- CADJ SUBROUTINE mdsreadfieldyz INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldyz OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldyz C---------------------------------------- CADJ SUBROUTINE mdswritefieldyz INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldyz OUTPUT = C---------------------------------------- C subroutine mdsreadfield_loc C---------------------------------------- CADJ SUBROUTINE mdsreadfield_loc INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfield_loc OUTPUT = 5 CADJ SUBROUTINE mdsreadfield_loc DEPEND = 1,2,3,4,5,6,7 CADJ SUBROUTINE mdsreadfield_loc REQUIRED C---------------------------------------- C subroutine mdswritefield_loc C---------------------------------------- CADJ SUBROUTINE mdswritefield_loc INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefield_loc OUTPUT = C---------------------------------------- C subroutine mdsreadfieldxz_loc C---------------------------------------- CADJ SUBROUTINE mdsreadfieldxz_loc INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldxz_loc OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldxz_loc C---------------------------------------- CADJ SUBROUTINE mdswritefieldxz_loc INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldxz_loc OUTPUT = C---------------------------------------- C subroutine mdsreadfieldyz_loc C---------------------------------------- CADJ SUBROUTINE mdsreadfieldyz_loc INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldyz_loc OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldyz_loc C---------------------------------------- CADJ SUBROUTINE mdswritefieldyz_loc INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldyz_loc OUTPUT = C---------------------------------------- C subroutine mds_readvec_loc C---------------------------------------- CADJ SUBROUTINE mds_readvec_loc INPUT = 1,2,3,4,5, 8,9,10,11 CADJ SUBROUTINE mds_readvec_loc OUTPUT = 6,7 CADJ SUBROUTINE mds_readvec_loc DEPEND = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mds_readvec_loc REQUIRED C---------------------------------------- C subroutine MDS_FACEF_READ_RS C---------------------------------------- CADJ SUBROUTINE MDS_FACEF_READ_RS INPUT = 1,2,3,4,5,6,7 CADJ SUBROUTINE MDS_FACEF_READ_RS OUTPUT = 4 C---------------------------------------- C subroutine MDS_CHECK4FILE C---------------------------------------- CADJ SUBROUTINE MDS_CHECK4FILE INPUT = 1,2,3, 6,7 CADJ SUBROUTINE MDS_CHECK4FILE OUTPUT = 4,5