- Timestamp:
- 2015-07-02T16:00:36+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90
r5449 r5535 166 166 CASE ( 1 ) ! ORCA_R1 configurations 167 167 ! ! ======================= 168 ! This dirty section will be suppressed by simplification process: all this will come back in input files 169 ! Currently these hard-wired indices relate to the original (pre-v3.6) configuration 170 ! which had a grid-size of 362x292. 171 ! This grid has been extended southwards for use with the under ice-shelf options (isf) introduced in v3.6. 172 ! The original domain can still be used optionally if the isf code is not activated. 173 ! An adjustment (isrow) is made to the hard-wired indices if the extended domain (362x332) is being used. 174 ! 175 IF ( jpjglo == 292 ) THEN ; isrow = 0 ! Using pre-v3.6 files or adjusted start row from isf-extended grid 176 ELSEIF( jpjglo == 332 ) THEN ; isrow = 40 ! Using full isfextended domain. 177 ENDIF ! Adjust jindices to account for more southerly starting latitude 168 ! This dirty section will be suppressed by simplification process: 169 ! all this will come back in input files 170 ! Currently these hard-wired indices relate to configuration with 171 ! extend grid (jpjglo=332) 172 isrow = 332 - jpjglo 173 ! 178 174 ii0 = 283 ; ii1 = 283 179 ij0 = 2 01 + isrow ; ij1 = 201 +isrow175 ij0 = 241 - isrow ; ij1 = 241 - isrow 180 176 ! ! ======================= 181 177 CASE DEFAULT ! ORCA R05 or R025 … … 223 219 CASE ( 1 ) ! ORCA_R1 configurations 224 220 ! ! ======================= 225 ! 226 ! 227 IF ( jpjglo == 292 ) THEN ; isrow = 0228 ELSEIF( jpjglo == 332 ) THEN ; isrow = 39229 ENDIF221 ! This dirty section will be suppressed by simplification process: 222 ! all this will come back in input files 223 ! Currently these hard-wired indices relate to configuration with 224 ! extend grid (jpjglo=332) 225 isrow = 332 - jpjglo 230 226 ii0 = 282 ; ii1 = 282 231 ij0 = 2 01 + isrow ; ij1 = 201 +isrow227 ij0 = 240 - isrow ; ij1 = 240 - isrow 232 228 ! ! ======================= 233 229 CASE DEFAULT ! ORCA R05 or R025 … … 275 271 CASE ( 1 ) ! ORCA_R1 configurations 276 272 ! ! ======================= 277 ! 278 ! 279 IF ( jpjglo == 292 ) THEN ; isrow = 0280 ELSEIF( jpjglo == 332 ) THEN ; isrow = 39281 ENDIF273 ! This dirty section will be suppressed by simplification process: 274 ! all this will come back in input files 275 ! Currently these hard-wired indices relate to configuration with 276 ! extend grid (jpjglo=332) 277 isrow = 332 - jpjglo 282 278 ii0 = 331 ; ii1 = 331 283 ij0 = 176 + isrow ; ij1 = 176 +isrow279 ij0 = 215 - isrow ; ij1 = 215 - isrow 284 280 ! ! ======================= 285 281 CASE DEFAULT ! ORCA R05 or R025 … … 327 323 CASE ( 1 ) ! ORCA_R1 configurations 328 324 ! ! ======================= 329 ! 330 ! 331 IF ( jpjglo == 292 ) THEN ; isrow = 0332 ELSEIF( jpjglo == 332 ) THEN ; isrow = 39333 ENDIF325 ! This dirty section will be suppressed by simplification process: 326 ! all this will come back in input files 327 ! Currently these hard-wired indices relate to configuration with 328 ! extend grid (jpjglo=332) 329 isrow = 332 - jpjglo 334 330 ii0 = 297 ; ii1 = 297 335 ij0 = 2 30 + isrow ; ij1 = 230 +isrow331 ij0 = 269 - isrow ; ij1 = 269 - isrow 336 332 ! ! ======================= 337 333 CASE DEFAULT ! ORCA R05 or R025
Note: See TracChangeset
for help on using the changeset viewer.