Changeset 2778
- Timestamp:
- 03/17/16 17:22:51 (8 years ago)
- File:
-
- 1 edited
-
CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/closea.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/closea.F90
r2485 r2778 8 8 !! 9.0 ! 06-07 (G. Madec) add clo_rnf, clo_ups, clo_bat 9 9 !! NEMO 3.4 ! 03-12 (P.G. Fogli) sbc_clo bug fix & mpp reproducibility 10 !! 11 !! 2016 : new closed seas for use in IPSLCM6 coupled model (O. Marti) 10 12 !!---------------------------------------------------------------------- 11 13 … … 37 39 PUBLIC clo_bat ! routine called in domzgr module 38 40 39 INTEGER, PUBLIC, PARAMETER :: jpncs = 4!: number of closed sea41 INTEGER, PUBLIC, PARAMETER :: jpncs = 7 !: number of closed sea 40 42 INTEGER, PUBLIC, DIMENSION(jpncs) :: ncstt !: Type of closed sea 41 43 INTEGER, PUBLIC, DIMENSION(jpncs) :: ncsi1, ncsj1 !: south-west closed sea limits (i,j) … … 98 100 CASE ( 1 ) ! ORCA_R1 configuration 99 101 ! 100 !! This dirty section will be suppressed by simplification process: all this will come back in input files 101 !! Currently these hard-wired indices relate to the original (pre-v3.6) configuration which had a grid-size of 362x292. 102 !! This grid has been extended southwards for use with the under ice-shelf options (isf) introduced in v3.6. The original 103 !! domain can still be used optionally if the isf code is not activated. An adjustment (isrow) is made to the hard-wired 104 !! indices if the extended domain (362x332) is being used. 102 !! This dirty section will be suppressed by simplification process: all this will come back in input files. 103 !! Currently these hard-wired indices relate to NEMO v3.6 and later. In this version, the grid has been extended southwards 104 !! for use with the under ice-shelf options (isf). The grid resolution is 362x332. 105 !! The pre v3.6 (362x292) domain can still be used optionally if the isf code is not activated. An adjustment (isrow) 106 !! is made to the hard-wired indices if the reduced domain is used. 107 105 108 !! ======================= 106 109 IF ( jpjglo == 292 ) THEN ! ORCA1 R1 Â Using pre-v3.6 files or adjusted start row from isf-extended grid 107 isrow = 0110 isrow = 40 108 111 ELSEIF ( jpjglo == 332 ) THEN ! ORCA1 R1 - Using full isfÂextended domain. 109 isrow = 40 ! - Adjust jÂindices to account for more southerly starting latitude112 isrow = 0 ! - Adjust jÂindices to account for more southerly starting latitude 110 113 ENDIF 111 114 112 ncsnr(1) = 1 ; ncstt(1) = 0 ! Caspian Sea113 ncsi1(1) = 332 ; ncsj1(1) = 2 03 + isrow! spread over the globe114 ncsi2(1) = 344 ; ncsj2(1) = 2 35 +isrow115 ncsnr(1) = 1 ; ncstt(1) = 0 ! Caspian Sea 116 ncsi1(1) = 332 ; ncsj1(1) = 243 - isrow ! spread over the globe 117 ncsi2(1) = 344 ; ncsj2(1) = 275 - isrow 115 118 ncsir(1,1) = 1 ; ncsjr(1,1) = 1 116 ! 117 ncsnr(2) = 4 ; ncstt(2) = 2 ! Great North American Lakes 118 ncsi1(2) = 198 ; ncsj1(2) = 209 + isrow ! put at St Laurent mouth 119 ncsi2(2) = 213 ; ncsj2(2) = 223 + isrow 120 ncsir(1,2) = 225 ; ncsjr(1,2) = 220 + isrow 121 ncsir(1,2) = 225 ; ncsjr(1,2) = 221 + isrow 122 ncsir(1,2) = 226 ; ncsjr(1,2) = 220 + isrow 123 ncsir(1,2) = 226 ; ncsjr(1,2) = 221 + isrow 124 119 ! 120 ncsnr(2) = 4 ; ncstt(2) = 2 ! Lake Superior 121 ncsi1(2) = 198 ; ncsj1(2) = 256 - isrow ! put at St Laurent mouth 122 ncsi2(2) = 204 ; ncsj2(2) = 262 - isrow 123 ncsir(2,1) = 225 ; ncsjr(1,1) = 220 - isrow 124 ncsir(2,2) = 225 ; ncsjr(1,2) = 221 - isrow 125 ncsir(2,3) = 226 ; ncsjr(1,3) = 220 - isrow 126 ncsir(2,4) = 226 ; ncsjr(1,4) = 221 - isrow 127 ! 128 ncsnr(3) = 4 ; ncstt(3) = 2 ! Lake Michigan 129 ncsi1(3) = 199 ; ncsj1(3) = 248 - isrow ! put at St Laurent mouth 130 ncsi2(3) = 203 ; ncsj2(3) = 256 - isrow 131 ncsir(3,1) = 225 ; ncsjr(3,1) = 220 - isrow 132 ncsir(3,2) = 225 ; ncsjr(3,2) = 221 - isrow 133 ncsir(3,3) = 226 ; ncsjr(3,3) = 220 - isrow 134 ncsir(3,4) = 226 ; ncsjr(3,4) = 221 - isrow 135 ! 136 ncsnr(3) = 4 ; ncstt(23) = 2 ! Lake Huron 137 ncsi1(3) = 204 ; ncsj1(3) = 252 - isrow ! put at St Laurent mouth 138 ncsi2(3) = 209 ; ncsj2(3) = 255 - isrow 139 ncsir(4,1) = 225 ; ncsjr(4,1) = 220 - isrow 140 ncsir(4,2) = 225 ; ncsjr(4,2) = 221 - isrow 141 ncsir(4,3) = 226 ; ncsjr(4,3) = 220 - isrow 142 ncsir(4,4) = 226 ; ncsjr(4,4) = 221 - isrow 143 ! 144 ncsnr(2) = 4 ; ncstt(2) = 2 ! Lake Erie 145 ncsi1(2) = 206 ; ncsj1(2) = 249 - isrow ! put at St Laurent mouth 146 ncsi2(2) = 209 ; ncsj2(2) = 251 - isrow 147 ncsir(5,1) = 225 ; ncsjr(5,1) = 220 - isrow 148 ncsir(5,2) = 225 ; ncsjr(5,2) = 221 - isrow 149 ncsir(5,3) = 226 ; ncsjr(5,3) = 220 - isrow 150 ncsir(5,4) = 226 ; ncsjr(5,4) = 221 - isrow 151 ! 152 ncsnr(2) = 4 ; ncstt(2) = 2 ! Lake Ontario 153 ncsi1(2) = 210 ; ncsj1(2) = 252 - isrow ! put at St Laurent mouth 154 ncsi2(2) = 211 ; ncsj2(2) = 252 - isrow 155 ncsir(6,1) = 225 ; ncsjr(6,1) = 220 - isrow 156 ncsir(6,2) = 225 ; ncsjr(6,2) = 221 - isrow 157 ncsir(6,3) = 226 ; ncsjr(6,3) = 220 - isrow 158 ncsir(6,4) = 226 ; ncsjr(6,4) = 221 - isrow 159 ! 160 ncsnr(1) = 1 ; ncstt(1) = 0 ! Victoria Lake 161 ncsi1(1) = 321 ; ncsj1(1) = 180 - isrow ! spread over the globe 162 ncsi2(1) = 321 ; ncsj2(1) = 189 - isrow 163 ncsir(7,1) = 1 ; ncsjr(7,1) = 1 164 125 165 ! 126 166 ! ! =======================
Note: See TracChangeset
for help on using the changeset viewer.
