- Timestamp:
- 2016-05-03T14:28:12+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r6501_GO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90
r6503 r6507 155 155 ncsi2(4) = 76 ; ncsj2(4) = 61 156 156 ncsir(4,1) = 84 ; ncsjr(4,1) = 59 157 ! ! ======================= 158 CASE ( 025 ) ! ORCA_R025 configuration159 ! ! ======================= 160 ncsnr(1) = 1 ; ncstt(1) = 0 ! Caspian + Aralsea161 ncsi1(1) = 1330 ; ncsj1(1) = 645162 ncsi2(1) = 1 400 ; ncsj2(1) = 795157 ! ! ================================ 158 CASE ( 025 ) ! ORCA_R025 extended configuration 159 ! ! ================================ 160 ncsnr(1) = 1 ; ncstt(1) = 0 ! Caspian sea 161 ncsi1(1) = 1330 ; ncsj1(1) = 831 162 ncsi2(1) = 1375 ; ncsj2(1) = 981 163 163 ncsir(1,1) = 1 ; ncsjr(1,1) = 1 164 164 ! 165 ncsnr(2) = 1 ; ncstt(2) = 0 ! A zov Sea166 ncsi1(2) = 1 284 ; ncsj1(2) = 722167 ncsi2(2) = 1 304 ; ncsj2(2) = 747165 ncsnr(2) = 1 ; ncstt(2) = 0 ! Aral sea 166 ncsi1(2) = 1376 ; ncsj1(2) = 900 167 ncsi2(2) = 1400 ; ncsj2(2) = 981 168 168 ncsir(2,1) = 1 ; ncsjr(2,1) = 1 169 ! 170 ncsnr(3) = 1 ; ncstt(3) = 0 ! Azov Sea 171 ncsi1(3) = 1284 ; ncsj1(3) = 908 172 ncsi2(3) = 1304 ; ncsj2(3) = 933 173 ncsir(3,1) = 1 ; ncsjr(3,1) = 1 174 ! 175 ncsnr(4) = 1 ; ncstt(4) = 0 ! Lake Superior 176 ncsi1(4) = 781 ; ncsj1(4) = 904 177 ncsi2(4) = 815 ; ncsj2(4) = 926 178 ncsir(4,1) = 1 ; ncsjr(4,1) = 1 179 ! 180 ncsnr(5) = 1 ; ncstt(5) = 0 ! Lake Michigan 181 ncsi1(5) = 795 ; ncsj1(5) = 871 182 ncsi2(5) = 813 ; ncsj2(5) = 905 183 ncsir(5,1) = 1 ; ncsjr(5,1) = 1 184 ! 185 ncsnr(6) = 1 ; ncstt(6) = 0 ! Lake Huron part 1 186 ncsi1(6) = 814 ; ncsj1(6) = 882 187 ncsi2(6) = 825 ; ncsj2(6) = 905 188 ncsir(6,1) = 1 ; ncsjr(6,1) = 1 189 ! 190 ncsnr(7) = 1 ; ncstt(7) = 0 ! Lake Huron part 2 191 ncsi1(7) = 826 ; ncsj1(7) = 889 192 ncsi2(7) = 833 ; ncsj2(7) = 905 193 ncsir(7,1) = 1 ; ncsjr(7,1) = 1 194 ! 195 ncsnr(8) = 1 ; ncstt(8) = 0 ! Lake Erie 196 ncsi1(8) = 816 ; ncsj1(8) = 871 197 ncsi2(8) = 837 ; ncsj2(8) = 881 198 ncsir(8,1) = 1 ; ncsjr(8,1) = 1 199 ! 200 ncsnr(9) = 1 ; ncstt(9) = 0 ! Lake Ontario 201 ncsi1(9) = 831 ; ncsj1(9) = 882 202 ncsi2(9) = 847 ; ncsj2(9) = 889 203 ncsir(9,1) = 1 ; ncsjr(9,1) = 1 204 ! 205 ncsnr(10) = 1 ; ncstt(10) = 0 ! Lake Victoria 206 ncsi1(10) = 1274 ; ncsj1(10) = 672 207 ncsi2(10) = 1289 ; ncsj2(10) = 687 208 ncsir(10,1) = 1 ; ncsjr(10,1) = 1 169 209 ! 170 210 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.