Ignore:
Timestamp:
05/17/16 12:28:18 (9 years ago)
Author:
cetlod
Message:

Add modified diaar5.F90 routine & update trcdmp.F90 routine

File:
1 edited

Legend:

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

    r2834 r2858  
    207207            ! 
    208208                                                        ! Caspian Sea 
    209             nctsi1(1)   = 332  ; nctsj1(1)   = 243 - isrow 
    210             nctsi2(1)   = 344  ; nctsj2(1)   = 275 - isrow 
     209            nctsi1(1)   = 333  ; nctsj1(1)   = 243 - isrow 
     210            nctsi2(1)   = 342  ; nctsj2(1)   = 274 - isrow 
    211211            !                                           ! Lake Superior 
    212             nctsi1(2)   = 198  ; nctsj1(2)   = 256 - isrow 
     212            nctsi1(2)   = 198  ; nctsj1(2)   = 258 - isrow 
    213213            nctsi2(2)   = 204  ; nctsj2(2)   = 262 - isrow 
    214214            !                                           ! Lake Michigan 
    215             nctsi1(3)   = 199  ; nctsj1(3)   = 248 - isrow 
     215            nctsi1(3)   = 201  ; nctsj1(3)   = 250 - isrow 
    216216            nctsi2(3)   = 203  ; nctsj2(3)   = 256 - isrow 
    217217            !                                           ! Lake Huron 
    218218            nctsi1(4)   = 204  ; nctsj1(4)   = 252 - isrow 
    219             nctsi2(4)   = 209  ; nctsj2(4)   = 255 - isrow 
     219            nctsi2(4)   = 209  ; nctsj2(4)   = 256 - isrow 
    220220            !                                           ! Lake Erie 
    221221            nctsi1(5)   = 206  ; nctsj1(5)   = 249 - isrow 
     
    223223            !                                           ! Lake Ontario 
    224224            nctsi1(6)   = 210  ; nctsj1(6)   = 252 - isrow 
    225             nctsi2(6)   = 211  ; nctsj2(6)   = 252 - isrow 
     225            nctsi2(6)   = 212  ; nctsj2(6)   = 252 - isrow 
    226226            !                                           ! Victoria Lake 
    227227            nctsi1(7)   = 321  ; nctsj1(7)   = 180 - isrow 
Note: See TracChangeset for help on using the changeset viewer.