Back to home page

MITgcm

 
 

    


Warning, /pkg/rw/rw_ad.flow is written in an unsupported language. File is not indexed.

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
b2edc54f38 Patr*0001 C----------------------------------------
                0002 C subroutine  set_write_global_fld
                0003 C----------------------------------------
                0004 CADJ SUBROUTINE set_write_global_fld    INPUT  = 1
                0005 CADJ SUBROUTINE set_write_global_fld    OUTPUT =
                0006 
                0007 C----------------------------------------
                0008 C subroutine  write_fld_xy_rs
                0009 C----------------------------------------
                0010 CADJ SUBROUTINE write_fld_xy_rs   INPUT  = 1,2,3,4,5
                0011 CADJ SUBROUTINE write_fld_xy_rs   OUTPUT =
                0012 
                0013 C----------------------------------------
                0014 C subroutine  write_fld_xy_rl
                0015 C----------------------------------------
                0016 CADJ SUBROUTINE write_fld_xy_rl   INPUT  = 1,2,3,4,5
                0017 CADJ SUBROUTINE write_fld_xy_rl   OUTPUT =
                0018 
                0019 C----------------------------------------
                0020 C subroutine  write_fld_xyz_rs
                0021 C----------------------------------------
                0022 CADJ SUBROUTINE write_fld_xyz_rs  INPUT  = 1,2,3,4,5
                0023 CADJ SUBROUTINE write_fld_xyz_rs  OUTPUT =
                0024 
                0025 C----------------------------------------
                0026 C subroutine  write_fld_xyz_rl
                0027 C----------------------------------------
                0028 CADJ SUBROUTINE write_fld_xyz_rl  INPUT  = 1,2,3,4,5
                0029 CADJ SUBROUTINE write_fld_xyz_rl  OUTPUT =
                0030 
                0031 C----------------------------------------
                0032 C subroutine  write_local_rl
                0033 C----------------------------------------
                0034 CADJ SUBROUTINE write_local_rl  INPUT  = 1,2,3,4,5,6,7,8,9
                0035 CADJ SUBROUTINE write_local_rl  OUTPUT =
                0036 
                0037 C----------------------------------------
                0038 C subroutine  write_local_rs
                0039 C----------------------------------------
                0040 CADJ SUBROUTINE write_local_rs  INPUT  = 1,2,3,4,5,6,7,8,9
                0041 CADJ SUBROUTINE write_local_rs  OUTPUT =
                0042 
                0043 C----------------------------------------
                0044 C subroutine  set_write_global_rec
                0045 C----------------------------------------
                0046 CADJ SUBROUTINE set_write_global_rec  INPUT  = 1
                0047 CADJ SUBROUTINE set_write_global_rec  OUTPUT =
                0048 
                0049 C----------------------------------------
                0050 C subroutine  write_rec_xy_rl
                0051 C----------------------------------------
                0052 CADJ SUBROUTINE write_rec_xy_rl   INPUT  = 1,2,3,4,5
                0053 CADJ SUBROUTINE write_rec_xy_rl   OUTPUT =
                0054 
                0055 C----------------------------------------
                0056 C subroutine  write_rec_xyz_rs
                0057 C----------------------------------------
                0058 CADJ SUBROUTINE write_rec_xyz_rs  INPUT  = 1,2,3,4,5
                0059 CADJ SUBROUTINE write_rec_xyz_rs  OUTPUT =
                0060 
                0061 C----------------------------------------
                0062 C subroutine  write_rec_xyz_rl
                0063 C----------------------------------------
                0064 CADJ SUBROUTINE write_rec_xyz_rl  INPUT  = 1,2,3,4,5
                0065 CADJ SUBROUTINE write_rec_xyz_rl  OUTPUT =
                0066 
6c887c1f10 Patr*0067 C----------------------------------------
827db6a998 Jean*0068 C subroutine  write_rec_3d_rs
                0069 C----------------------------------------
                0070 CADJ SUBROUTINE write_rec_3d_rs  INPUT  = 1,2,3,4,5,6,7
                0071 CADJ SUBROUTINE write_rec_3d_rs  OUTPUT =
                0072 
                0073 C----------------------------------------
                0074 C subroutine  write_rec_3d_rl
                0075 C----------------------------------------
                0076 CADJ SUBROUTINE write_rec_3d_rl  INPUT  = 1,2,3,4,5,6,7
                0077 CADJ SUBROUTINE write_rec_3d_rl  OUTPUT =
                0078 
                0079 C----------------------------------------
                0080 C subroutine  write_rec_lev_rs
                0081 C----------------------------------------
                0082 CADJ SUBROUTINE write_rec_lev_rs  INPUT  = 1,2,3,4,5,6,7,8,9
                0083 CADJ SUBROUTINE write_rec_lev_rs  OUTPUT =
                0084 
                0085 C----------------------------------------
                0086 C subroutine  write_rec_lev_rl
                0087 C----------------------------------------
                0088 CADJ SUBROUTINE write_rec_lev_rl  INPUT  = 1,2,3,4,5,6,7,8,9
                0089 CADJ SUBROUTINE write_rec_lev_rl  OUTPUT =
                0090 
                0091 C----------------------------------------
d12faa672c Jean*0092 C subroutine  set_write_global_sec
                0093 C----------------------------------------
                0094 CADJ SUBROUTINE set_write_global_sec  INPUT  = 1
                0095 CADJ SUBROUTINE set_write_global_sec  OUTPUT =
                0096 
                0097 C----------------------------------------
827db6a998 Jean*0098 C subroutine  write_rec_xz_rs
                0099 C----------------------------------------
                0100 CADJ SUBROUTINE write_rec_xz_rs  INPUT  = 1,2,3,4,5,6,7
                0101 CADJ SUBROUTINE write_rec_xz_rs  OUTPUT =
                0102 
                0103 C----------------------------------------
                0104 C subroutine  write_rec_xz_rl
                0105 C----------------------------------------
                0106 CADJ SUBROUTINE write_rec_xz_rl  INPUT  = 1,2,3,4,5,6,7
                0107 CADJ SUBROUTINE write_rec_xz_rl  OUTPUT =
                0108 
                0109 C----------------------------------------
                0110 C subroutine  write_rec_yz_rs
                0111 C----------------------------------------
                0112 CADJ SUBROUTINE write_rec_yz_rs  INPUT  = 1,2,3,4,5,6,7
                0113 CADJ SUBROUTINE write_rec_yz_rs  OUTPUT =
                0114 
                0115 C----------------------------------------
                0116 C subroutine  write_rec_yz_rl
                0117 C----------------------------------------
                0118 CADJ SUBROUTINE write_rec_yz_rl  INPUT  = 1,2,3,4,5,6,7
                0119 CADJ SUBROUTINE write_rec_yz_rl  OUTPUT =
                0120 
                0121 C----------------------------------------
909a03e208 Jean*0122 C subroutine WRITE_GLVEC_RS
                0123 C----------------------------------------
                0124 CADJ SUBROUTINE WRITE_GLVEC_RS  INPUT  = 1,2,3,4,5,6
                0125 CADJ SUBROUTINE WRITE_GLVEC_RS  OUTPUT =
                0126 
                0127 C----------------------------------------
                0128 C subroutine WRITE_GLVEC_RL
                0129 C----------------------------------------
                0130 CADJ SUBROUTINE WRITE_GLVEC_RL  INPUT  = 1,2,3,4,5,6
                0131 CADJ SUBROUTINE WRITE_GLVEC_RL  OUTPUT =
                0132 
                0133 C----------------------------------------
a46ff7f681 Jean*0134 C subroutine READ_GLVEC_RS
6c887c1f10 Patr*0135 C----------------------------------------
a46ff7f681 Jean*0136 CADJ SUBROUTINE READ_GLVEC_RS  INPUT  = 1,2,  4,5,6
                0137 CADJ SUBROUTINE READ_GLVEC_RS  OUTPUT =     3 
                0138 
                0139 C----------------------------------------
                0140 C subroutine READ_GLVEC_RL
                0141 C----------------------------------------
                0142 CADJ SUBROUTINE READ_GLVEC_RL  INPUT  = 1,2,  4,5,6
                0143 CADJ SUBROUTINE READ_GLVEC_RL  OUTPUT =     3 
6c887c1f10 Patr*0144 
                0145 C----------------------------------------
                0146 C subroutine  READ_MFLDS_INIT
                0147 C----------------------------------------
                0148 CADJ SUBROUTINE READ_MFLDS_INIT  INPUT  = 1
                0149 CADJ SUBROUTINE READ_MFLDS_INIT  OUTPUT =
                0150 
                0151 C----------------------------------------
                0152 C subroutine  READ_MFLDS_SET
                0153 C----------------------------------------
                0154 CADJ SUBROUTINE READ_MFLDS_SET  INPUT  = 1,   4,5,6
                0155 CADJ SUBROUTINE READ_MFLDS_SET  OUTPUT =   2,3
                0156 
                0157 C----------------------------------------
                0158 C subroutine  READ_MFLDS_3D_RL
                0159 C----------------------------------------
                0160 CADJ SUBROUTINE READ_MFLDS_3D_RL  INPUT  = 1,  3,4,5,6,7
88ad23a048 Patr*0161 CADJ SUBROUTINE READ_MFLDS_3D_RL  OUTPUT =   2,3
6c887c1f10 Patr*0162 
79bad69582 Jean*0163 C----------------------------------------
                0164 C subroutine  READ_MFLDS_LEV_RL
                0165 C----------------------------------------
                0166 CADJ SUBROUTINE READ_MFLDS_LEV_RL  INPUT  = 1,  3,4,5,6,7,8,9
                0167 CADJ SUBROUTINE READ_MFLDS_LEV_RL  OUTPUT =   2,3
6c887c1f10 Patr*0168 
5151e843d2 Jean*0169 C----------------------------------------
5bc5177bde Jean*0170 C subroutine  READ_MFLDS_LEV_RS
                0171 C----------------------------------------
                0172 CADJ SUBROUTINE READ_MFLDS_LEV_RS  INPUT  = 1,  3,4,5,6,7,8,9
                0173 CADJ SUBROUTINE READ_MFLDS_LEV_RS  OUTPUT =   2,3
                0174 
                0175 C----------------------------------------
a46ff7f681 Jean*0176 C subroutine  READ_MFLDS_CHECK
5151e843d2 Jean*0177 C----------------------------------------
a46ff7f681 Jean*0178 CADJ SUBROUTINE READ_MFLDS_CHECK  INPUT  =   2,3,4
                0179 CADJ SUBROUTINE READ_MFLDS_CHECK  OUTPUT = 1,2
5151e843d2 Jean*0180 
                0181 C----------------------------------------
a46ff7f681 Jean*0182 C subroutine  READ_MFLDS_RENAME
5151e843d2 Jean*0183 C----------------------------------------
a46ff7f681 Jean*0184 CADJ SUBROUTINE READ_MFLDS_RENAME  INPUT  = 1,2,  4
                0185 CADJ SUBROUTINE READ_MFLDS_RENAME  OUTPUT =     3
5151e843d2 Jean*0186 
746054ac44 Jean*0187 C----------------------------------------
                0188 C subroutine  RW_GET_SUFFIX
                0189 C----------------------------------------
                0190 CADJ SUBROUTINE RW_GET_SUFFIX  INPUT  =   2,3,4
                0191 CADJ SUBROUTINE RW_GET_SUFFIX  OUTPUT = 1