C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mdsio/mdsio_ad.flow,v 1.5 2008/05/30 19:43:18 heimbach Exp $ C $Name: $ C---------------------------------------- C subroutine mds_read_field C---------------------------------------- CADJ SUBROUTINE mds_read_field INPUT = 1,2,3,4,5,6,7, 9,10 CADJ SUBROUTINE mds_read_field OUTPUT = 8 CADJ SUBROUTINE mds_read_field DEPEND = 1,2,3,4,5,6,7,8,9,10 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 CADJ SUBROUTINE mds_write_field 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 mdsreadvector C---------------------------------------- CADJ SUBROUTINE mdsreadvector INPUT = 1,2,3,4, 6,7,8,9 CADJ SUBROUTINE mdsreadvector OUTPUT = 5 C---------------------------------------- C subroutine mdswritevector C---------------------------------------- CADJ SUBROUTINE mdswritevector INPUT = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mdswritevector 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 mdsreadvector_loc C---------------------------------------- CADJ SUBROUTINE mdsreadvector_loc INPUT = 1,2,3,4, 6,7,8,9 CADJ SUBROUTINE mdsreadvector_loc OUTPUT = 5 C---------------------------------------- C subroutine mdswritevector_loc C---------------------------------------- CADJ SUBROUTINE mdswritevector_loc INPUT = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mdswritevector_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_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