Ignore:
Timestamp:
05/17/16 10:13:31 (7 years ago)
Author:
omamce
Message:

O.M. : correct some indices in closea for ORCA1

water budget on closea is closed now
sea ​https://forge.ipsl.jussieu.fr/igcmg/ticket/95

File:
1 edited

Legend:

Unmodified
Added
Removed

  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/closea.F90

    r2832 r2857  
    107107             
    108108            !! ======================= 
    109             IF     ( jpjglo == 292 ) THEN  !  ORCA1 R1 ­ Using pre-v3.6 files or adjusted start row from isf-extended grid 
    110                isrow = 40 
    111             ELSEIF ( jpjglo == 332 ) THEN  !  ORCA1 R1 - Using full isf­extended domain. 
    112                isrow =  0                  !    - Adjust j­indices to account for more southerly starting latitude 
     109            IF         ( jpjglo == 332 ) THEN  !  eORCA1 R1 - Using full isf­extended domain. 
     110               isrow =  0 
     111            ELSEIF     ( jpjglo == 292 ) THEN  !  ORCA1 R1 ­ Using pre-v3.6 files or adjusted start row from isf-extended grid 
     112               isrow = 40                      !    - Adjust j­indices to account for less southerly starting latitude 
    113113            ENDIF 
    114114             
    115115            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 
     116            ncsi1(1)   = 333  ; ncsj1(1)   = 243 - isrow      ! spread over the globe 
     117            ncsi2(1)   = 342  ; ncsj2(1)   = 274 - isrow 
    118118            ncsir(1,1) = 1    ; ncsjr(1,1) = 1 
    119119            ! 
    120120            ncsnr(2)   = 4    ; ncstt(2)   = 2              ! Lake Superior 
    121             ncsi1(2)   = 198  ; ncsj1(2)   = 256 - isrow      ! put at St Laurent mouth 
     121            ncsi1(2)   = 198  ; ncsj1(2)   = 258 - isrow      ! put at St Laurent mouth 
    122122            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 
     123            ncsir(2,1) = 225  ; ncsjr(2,1) = 220 - isrow 
     124            ncsir(2,2) = 225  ; ncsjr(2,2) = 221 - isrow 
     125            ncsir(2,3) = 226  ; ncsjr(2,3) = 220 - isrow 
     126            ncsir(2,4) = 226  ; ncsjr(2,4) = 221 - isrow 
    127127            ! 
    128128            ncsnr(3)   = 4    ; ncstt(3)   = 2              ! Lake Michigan 
    129             ncsi1(3)   = 199  ; ncsj1(3)   = 248 - isrow      ! put at St Laurent mouth 
     129            ncsi1(3)   = 201  ; ncsj1(3)   = 250 - isrow      ! put at St Laurent mouth 
    130130            ncsi2(3)   = 203  ; ncsj2(3)   = 256 - isrow 
    131131            ncsir(3,1) = 225  ; ncsjr(3,1) = 220 - isrow 
    … …  
    134134            ncsir(3,4) = 226  ; ncsjr(3,4) = 221 - isrow 
    135135            ! 
    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 
     136            ncsnr(4)   = 4    ; ncstt(4)   = 2             ! Lake Huron 
     137            ncsi1(4)   = 204  ; ncsj1(4)   = 252 - isrow      ! put at St Laurent mouth 
     138            ncsi2(4)   = 209  ; ncsj2(4)   = 256 - isrow 
    139139            ncsir(4,1) = 225  ; ncsjr(4,1) = 220 - isrow 
    140140            ncsir(4,2) = 225  ; ncsjr(4,2) = 221 - isrow 
    … …  
    142142            ncsir(4,4) = 226  ; ncsjr(4,4) = 221 - isrow 
    143143            ! 
    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 
     144            ncsnr(5)   = 4    ; ncstt(5)   = 2              ! Lake Erie 
     145            ncsi1(5)   = 206  ; ncsj1(5)   = 249 - isrow      ! put at St Laurent mouth 
     146            ncsi2(5)   = 209  ; ncsj2(5)   = 251 - isrow 
    147147            ncsir(5,1) = 225  ; ncsjr(5,1) = 220 - isrow 
    148148            ncsir(5,2) = 225  ; ncsjr(5,2) = 221 - isrow 
    … …  
    150150            ncsir(5,4) = 226  ; ncsjr(5,4) = 221 - isrow 
    151151            ! 
    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 
     152            ncsnr(6)   = 4    ; ncstt(6)   = 2              ! Lake Ontario 
     153            ncsi1(6)   = 210  ; ncsj1(6)   = 252 - isrow      ! put at St Laurent mouth 
     154            ncsi2(6)   = 212  ; ncsj2(6)   = 252 - isrow 
    155155            ncsir(6,1) = 225  ; ncsjr(6,1) = 220 - isrow 
    156156            ncsir(6,2) = 225  ; ncsjr(6,2) = 221 - isrow 
    … …  
    158158            ncsir(6,4) = 226  ; ncsjr(6,4) = 221 - isrow 
    159159            ! 
    160             ncsnr(1)   = 1    ; ncstt(1)   = 0             ! Victoria Lake 
    161             ncsi1(1)   = 321  ; ncsj1(1)   = 180 - isrow     ! spread over the globe 
    162             ncsi2(1)   = 322  ; ncsj2(1)   = 189 - isrow 
     160            ncsnr(7)   = 1    ; ncstt(7)   = 0             ! Victoria Lake 
     161            ncsi1(7)   = 321  ; ncsj1(7)   = 180 - isrow     ! spread over the globe 
     162            ncsi2(7)   = 322  ; ncsj2(7)   = 189 - isrow 
    163163            ncsir(7,1) = 1    ; ncsjr(7,1) = 1 
    164164             
Note: See TracChangeset for help on using the changeset viewer.