Changeset 2778


Ignore:
Timestamp:
03/17/16 17:22:51 (6 years ago)
Author:
omamce
Message:

O.M. : with Great Lakes and Victoria Lake

File:
1 edited

Legend:

Unmodified
Added
Removed
  • CONFIG/UNIFORM/v6/IPSLCM6/SOURCES/NEMO/closea.F90

    r2485 r2778  
    88   !!             9.0  !  06-07  (G. Madec)  add clo_rnf, clo_ups, clo_bat 
    99   !!        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) 
    1012   !!---------------------------------------------------------------------- 
    1113 
     
    3739   PUBLIC clo_bat      ! routine called in domzgr module 
    3840 
    39    INTEGER, PUBLIC, PARAMETER          ::   jpncs   = 4      !: number of closed sea 
     41   INTEGER, PUBLIC, PARAMETER          ::   jpncs   = 7      !: number of closed sea 
    4042   INTEGER, PUBLIC, DIMENSION(jpncs)   ::   ncstt            !: Type of closed sea 
    4143   INTEGER, PUBLIC, DIMENSION(jpncs)   ::   ncsi1, ncsj1     !: south-west closed sea limits (i,j) 
     
    98100         CASE ( 1 )                                  ! ORCA_R1 configuration 
    99101            ! 
    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             
    105108            !! ======================= 
    106109            IF     ( jpjglo == 292 ) THEN  !  ORCA1 R1 ­ Using pre-v3.6 files or adjusted start row from isf-extended grid 
    107                isrow = 0 
     110               isrow = 40 
    108111            ELSEIF ( jpjglo == 332 ) THEN  !  ORCA1 R1 - Using full isf­extended domain. 
    109                isrow = 40                  !    - Adjust j­indices to account for more southerly starting latitude 
     112               isrow =  0                  !    - Adjust j­indices to account for more southerly starting latitude 
    110113            ENDIF 
    111114             
    112             ncsnr(1)   = 1    ; ncstt(1)   = 0           ! Caspian Sea 
    113             ncsi1(1)   = 332  ; ncsj1(1)   = 203 + isrow   ! spread over the globe 
    114             ncsi2(1)   = 344  ; ncsj2(1)   = 235 + isrow 
     115            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 
    115118            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             
    125165            !                                         
    126166            !                                        ! ======================= 
Note: See TracChangeset for help on using the changeset viewer.