Ignore:
Timestamp:
2020-06-22T11:13:03+02:00 (3 months ago)
Author:
smasson
Message:

Extra_Halo: minor bugfixes and cleaning, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/TOP/TRP/trcdmp.F90

    r12738 r13138  
    245245            !                                           ! ======================= 
    246246            CASE ( 1 )                                  ! eORCA_R1 configuration 
    247             !                                           ! ======================= 
    248             isrow = 332 - jpjglo 
    249             ! 
    250             nctsi1(1)   = 333  ; nctsj1(1)   = 243 - isrow   ! Caspian Sea 
    251             nctsi2(1)   = 342  ; nctsj2(1)   = 274 - isrow 
    252             !                                         
    253             nctsi1(2)   = 198  ; nctsj1(2)   = 258 - isrow   ! Lake Superior 
    254             nctsi2(2)   = 204  ; nctsj2(2)   = 262 - isrow 
    255             !                                          
    256             nctsi1(3)   = 201  ; nctsj1(3)   = 250 - isrow   ! Lake Michigan 
    257             nctsi2(3)   = 203  ; nctsj2(3)   = 256 - isrow 
    258             !                                         
    259             nctsi1(4)   = 204  ; nctsj1(4)   = 252 - isrow   ! Lake Huron 
    260             nctsi2(4)   = 209  ; nctsj2(4)   = 256 - isrow 
    261             !                                         
    262             nctsi1(5)   = 206  ; nctsj1(5)   = 249 - isrow   ! Lake Erie 
    263             nctsi2(5)   = 209  ; nctsj2(5)   = 251 - isrow 
    264             !                                         
    265             nctsi1(6)   = 210  ; nctsj1(6)   = 252 - isrow   ! Lake Ontario 
    266             nctsi2(6)   = 212  ; nctsj2(6)   = 252 - isrow 
    267             !                                         
    268             nctsi1(7)   = 321  ; nctsj1(7)   = 180 - isrow   ! Victoria Lake 
    269             nctsi2(7)   = 322  ; nctsj2(7)   = 189 - isrow 
    270             !                                         
    271             nctsi1(8)   = 297  ; nctsj1(8)   = 270 - isrow   ! Baltic Sea 
    272             nctsi2(8)   = 308  ; nctsj2(8)   = 293 - isrow 
    273             !                                         
    274             !                                           ! ======================= 
     247               !                                        ! ======================= 
     248               ! 
     249               isrow = 332 - (Nj0glo + 1)   ! was 332 - jpjglo -> jpjglo_old_version = Nj0glo + 1 
     250               ! 
     251               nctsi1(1)   = 333  ; nctsj1(1)   = 243 - isrow   ! Caspian Sea 
     252               nctsi2(1)   = 342  ; nctsj2(1)   = 274 - isrow 
     253               !                                         
     254               nctsi1(2)   = 198  ; nctsj1(2)   = 258 - isrow   ! Lake Superior 
     255               nctsi2(2)   = 204  ; nctsj2(2)   = 262 - isrow 
     256               !                                          
     257               nctsi1(3)   = 201  ; nctsj1(3)   = 250 - isrow   ! Lake Michigan 
     258               nctsi2(3)   = 203  ; nctsj2(3)   = 256 - isrow 
     259               !                                         
     260               nctsi1(4)   = 204  ; nctsj1(4)   = 252 - isrow   ! Lake Huron 
     261               nctsi2(4)   = 209  ; nctsj2(4)   = 256 - isrow 
     262               !                                         
     263               nctsi1(5)   = 206  ; nctsj1(5)   = 249 - isrow   ! Lake Erie 
     264               nctsi2(5)   = 209  ; nctsj2(5)   = 251 - isrow 
     265               !                                         
     266               nctsi1(6)   = 210  ; nctsj1(6)   = 252 - isrow   ! Lake Ontario 
     267               nctsi2(6)   = 212  ; nctsj2(6)   = 252 - isrow 
     268               !                                         
     269               nctsi1(7)   = 321  ; nctsj1(7)   = 180 - isrow   ! Victoria Lake 
     270               nctsi2(7)   = 322  ; nctsj2(7)   = 189 - isrow 
     271               !                                         
     272               nctsi1(8)   = 297  ; nctsj1(8)   = 270 - isrow   ! Baltic Sea 
     273               nctsi2(8)   = 308  ; nctsj2(8)   = 293 - isrow 
     274               ! 
     275               !                                        ! ======================= 
    275276            CASE ( 2 )                                  !  ORCA_R2 configuration 
    276277               !                                        ! ======================= 
     
    285286               nctsi2(3)   = 181  ;  nctsj2(3)   = 112 
    286287              !                                       
    287                nctsi1(4)   =   2  ;  nctsj1(4)   = 107      ! Black Sea 2 : est part of the Black Sea 
     288               nctsi1(4)   =   2  ;  nctsj1(4)   = 107       ! Black Sea 2 : est part of the Black Sea 
    288289               nctsi2(4)   =   6  ;  nctsj2(4)   = 112 
    289290               !                                      
    290291               nctsi1(5)   =  145 ;  nctsj1(5)   = 116       ! Baltic Sea 
    291292               nctsi2(5)   =  150 ;  nctsj2(5)   = 126 
     293               ! 
    292294               !                                        ! ======================= 
    293295            CASE ( 4 )                                  !  ORCA_R4 configuration 
     
    305307               nctsi1(4)   = 75  ;  nctsj1(4)   = 59         ! Baltic Sea 
    306308               nctsi2(4)   = 76  ;  nctsj2(4)   = 61 
     309               ! 
    307310               !                                        ! ======================= 
    308311            CASE ( 025 )                                ! ORCA_R025 configuration 
     
    318321            ! 
    319322         ENDIF 
     323         ! 
     324         nctsi1(:) = nctsi1(:) + nn_hls - 1   ;   nctsi2(:) = nctsi2(:) + nn_hls - 1   ! -1 as x-perio included in old input files 
     325         nctsj1(:) = nctsj1(:) + nn_hls       ;   nctsj2(:) = nctsj2(:) + nn_hls 
    320326         ! 
    321327         ! convert the position in local domain indices 
Note: See TracChangeset for help on using the changeset viewer.