New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6390 – NEMO

Changeset 6390


Ignore:
Timestamp:
2016-03-15T11:42:03+01:00 (8 years ago)
Author:
davestorkey
Message:

UKMO/dev_r5107_eorca025_closea branch: update closea definitions for eORCA025 to ensure each lake has a separate rectangle. When one rectangle is defined for more than one lake the SSH can drift in opposite directions.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

    r5535 r6390  
    3636   PUBLIC clo_bat      ! routine called in domzgr module 
    3737 
    38    INTEGER, PUBLIC, PARAMETER          ::   jpncs   = 4      !: number of closed sea 
     38   INTEGER, PUBLIC, PARAMETER          ::   jpncs   = 10      !: number of closed sea 
    3939   INTEGER, PUBLIC, DIMENSION(jpncs)   ::   ncstt            !: Type of closed sea 
    4040   INTEGER, PUBLIC, DIMENSION(jpncs)   ::   ncsi1, ncsj1     !: south-west closed sea limits (i,j) 
    … …  
    158158         CASE ( 025 )                                ! ORCA_R025 extended configuration 
    159159            !                                        ! ================================ 
    160             ncsnr(1)   = 1    ; ncstt(1)   = 0               ! Caspian + Aral sea 
     160            ncsnr(1)   = 1    ; ncstt(1)   = 0               ! Caspian sea 
    161161            ncsi1(1)   = 1330 ; ncsj1(1)   = 831 
    162             ncsi2(1)   = 1400 ; ncsj2(1)   = 981 
     162            ncsi2(1)   = 1375 ; ncsj2(1)   = 981 
    163163            ncsir(1,1) = 1    ; ncsjr(1,1) = 1 
    164164            !                                         
    165             ncsnr(2)   = 1    ; ncstt(2)   = 0               ! Azov Sea  
    166             ncsi1(2)   = 1284 ; ncsj1(2)   = 908 
    167             ncsi2(2)   = 1304 ; ncsj2(2)   = 933 
     165            ncsnr(2)   = 1    ; ncstt(2)   = 0               ! Aral sea 
     166            ncsi1(2)   = 1376 ; ncsj1(2)   = 900 
     167            ncsi2(2)   = 1400 ; ncsj2(2)   = 981 
    168168            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 
    169174            ! 
    170             ncsnr(3)   = 1    ; ncstt(3)   = 0               ! North American Great Lakes   
    171             ncsi1(3)   = 781  ; ncsj1(3)   = 870  
    172             ncsi2(3)   = 847  ; ncsj2(3)   = 926  
    173             ncsir(3,1) = 1    ; ncsjr(3,1) = 1  
     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  
    174179            !  
    175             ncsnr(4)   = 1    ; ncstt(4)   = 0               ! Lake Victoria   
    176             ncsi1(4)   = 1274 ; ncsj1(4)   = 672  
    177             ncsi2(4)   = 1289 ; ncsj2(4)   = 687  
    178             ncsir(4,1) = 1    ; ncsjr(4,1) = 1  
     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  
    179209            ! 
    180210         END SELECT 
Note: See TracChangeset for help on using the changeset viewer.