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 5506 – NEMO

Changeset 5506


Ignore:
Timestamp:
2015-06-29T17:19:38+02:00 (9 years ago)
Author:
clevy
Message:

eORCA1 hard coded indexes, see ticket #1554

Location:
trunk/NEMOGCM/NEMO
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

    r5385 r5506  
    166166         CASE ( 1 )                                  !  ORCA_R1 configurations 
    167167            !                                        ! ======================= 
    168             ! This dirty section will be suppressed by simplification process: all this will come back in input files 
    169             ! Currently these hard-wired indices relate to the original (pre-v3.6) configuration  
    170             ! which had a grid-size of 362x292. 
    171             ! This grid has been extended southwards for use with the under ice-shelf options (isf) introduced in v3.6.  
    172             ! The original domain can still be used optionally if the isf code is not activated.  
    173             ! An adjustment (isrow) is made to the hard-wired indices if the extended domain (362x332) is being used. 
    174             !  
    175             IF    ( jpjglo == 292 ) THEN  ;  isrow = 0  ! Using pre-v3.6 files or adjusted start row from isf-extended grid 
    176             ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 40 ! Using full isf­extended domain.  
    177             ENDIF                                       ! Adjust j­indices to account for more southerly starting latitude 
     168            ! This dirty section will be suppressed by simplification process: 
     169            ! all this will come back in input files 
     170            ! Currently these hard-wired indices relate to configuration with 
     171            ! extend grid (jpjglo=332) 
     172            isrow = 332 - jpjglo 
     173            ! 
    178174            ii0 = 283           ;   ii1 = 283 
    179             ij0 = 201 + isrow   ;   ij1 = 201 + isrow 
     175            ij0 = 241 - isrow   ;   ij1 = 241 - isrow 
    180176            !                                        ! ======================= 
    181177         CASE DEFAULT                                !    ORCA R05 or R025 
    … …  
    223219         CASE ( 1 )                                  !  ORCA_R1 configurations 
    224220            !                                        ! ======================= 
    225             !  This dirty section will be suppressed by simplification process: 
    226             !  all this will come back in input files 
    227             IF    ( jpjglo == 292 ) THEN  ;  isrow = 0   
    228             ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 39 
    229             ENDIF                                       
     221            ! This dirty section will be suppressed by simplification process: 
     222            ! all this will come back in input files 
     223            ! Currently these hard-wired indices relate to configuration with 
     224            ! extend grid (jpjglo=332) 
     225            isrow = 332 - jpjglo 
    230226            ii0 = 282           ;   ii1 = 282 
    231             ij0 = 201 + isrow   ;   ij1 = 201 + isrow 
     227            ij0 = 240 - isrow   ;   ij1 = 240 - isrow 
    232228            !                                        ! ======================= 
    233229         CASE DEFAULT                                !    ORCA R05 or R025 
    … …  
    275271         CASE ( 1 )                                  !  ORCA_R1 configurations 
    276272            !                                        ! ======================= 
    277             !  This dirty section will be suppressed by simplification process: 
    278             !  all this will come back in input files 
    279             IF    ( jpjglo == 292 ) THEN  ;  isrow = 0   
    280             ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 39 
    281             ENDIF                                       
     273            ! This dirty section will be suppressed by simplification process: 
     274            ! all this will come back in input files 
     275            ! Currently these hard-wired indices relate to configuration with 
     276            ! extend grid (jpjglo=332) 
     277            isrow = 332 - jpjglo 
    282278            ii0 = 331           ;   ii1 = 331 
    283             ij0 = 176 + isrow   ;   ij1 = 176 + isrow 
     279            ij0 = 215 - isrow   ;   ij1 = 215 - isrow 
    284280            !                                        ! ======================= 
    285281         CASE DEFAULT                                !    ORCA R05 or R025 
    … …  
    327323         CASE ( 1 )                                  !  ORCA_R1 configurations 
    328324            !                                        ! ======================= 
    329             !  This dirty section will be suppressed by simplification process: 
    330             !  all this will come back in input files 
    331             IF    ( jpjglo == 292 ) THEN  ;  isrow = 0   
    332             ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 39 
    333             ENDIF                                       
     325            ! This dirty section will be suppressed by simplification process: 
     326            ! all this will come back in input files 
     327            ! Currently these hard-wired indices relate to configuration with 
     328            ! extend grid (jpjglo=332) 
     329            isrow = 332 - jpjglo 
    334330            ii0 = 297           ;   ii1 = 297 
    335             ij0 = 230 + isrow   ;   ij1 = 230 + isrow 
     331            ij0 = 269 - isrow   ;   ij1 = 269 - isrow 
    336332            !                                        ! ======================= 
    337333         CASE DEFAULT                                !    ORCA R05 or R025 

  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

    r4162 r5506  
    7272      !!---------------------------------------------------------------------- 
    7373      INTEGER ::   jc            ! dummy loop indices 
     74      INTEGER :: isrow           ! local index 
    7475      !!---------------------------------------------------------------------- 
    7576       
    … …  
    9192         CASE ( 1 )                                  ! ORCA_R1 configuration 
    9293            !                                        ! ======================= 
     94            ! This dirty section will be suppressed by simplification process: 
     95            ! all this will come back in input files 
     96            ! Currently these hard-wired indices relate to configuration with 
     97            ! extend grid (jpjglo=332) 
     98            isrow = 332 - jpjglo 
     99            ! 
    93100            ncsnr(1)   = 1    ; ncstt(1)   = 0           ! Caspian Sea 
    94             ncsi1(1)   = 332  ; ncsj1(1)   = 203 
    95             ncsi2(1)   = 344  ; ncsj2(1)   = 235 
     101            ncsi1(1)   = 332  ; ncsj1(1)   = 243 - isrow 
     102            ncsi2(1)   = 344  ; ncsj2(1)   = 275 - isrow 
    96103            ncsir(1,1) = 1    ; ncsjr(1,1) = 1 
    97104            !                                         

  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

    r5385 r5506  
    162162            !                                             ! ===================== 
    163163            ! This dirty section will be suppressed by simplification process: all this will come back in input files 
    164             ! Currently these hard-wired indices relate to the original (pre-v3.6) configuration  
     164            ! Currently these hard-wired indices relate to configuration with 
     165            ! extend grid (jpjglo=332) 
    165166            ! which had a grid-size of 362x292. 
    166             ! This grid has been extended southwards for use with the under ice-shelf options (isf) introduced in v3.6.  
    167             ! The original domain can still be used optionally if the isf code is not activated.  
    168             ! An adjustment (isrow) is made to the hard-wired indices if the extended domain (362x332) is being used. 
    169167            !  
    170             IF    ( jpjglo == 292 ) THEN  ;  isrow = 0  ! Using pre-v3.6 files or adjusted start row from isf-extended grid 
    171             ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 40 ! Using full isf­extended domain.  
    172             ENDIF      
     168            isrow = 332 - jpjglo 
    173169            ! 
    174170            ii0 = 282           ;   ii1 = 283        ! Gibraltar Strait (e2u = 20 km) 
    175             ij0 = 201 + isrow   ;   ij1 = 201 + isrow   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  20.e3 
     171            ij0 = 201 + isrow   ;   ij1 = 241 - isrow   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  20.e3 
    176172            IF(lwp) WRITE(numout,*) 
    177173            IF(lwp) WRITE(numout,*) '             orca_r1: Gibraltar : e2u reduced to 20 km' 
    178174 
    179175            ii0 = 314           ;   ii1 = 315        ! Bhosporus Strait (e2u = 10 km) 
    180             ij0 = 208 + isrow   ;   ij1 = 208 + isrow   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  10.e3 
     176            ij0 = 208 + isrow   ;   ij1 = 248 - isrow   ;   e2u( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  10.e3 
    181177            IF(lwp) WRITE(numout,*) 
    182178            IF(lwp) WRITE(numout,*) '             orca_r1: Bhosporus : e2u reduced to 10 km' 
    183179 
    184180            ii0 =  44           ;   ii1 =  44        ! Lombok Strait (e1v = 13 km) 
    185             ij0 = 124 + isrow   ;   ij1 = 125 + isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  13.e3 
     181            ij0 = 124 + isrow   ;   ij1 = 165 - isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  13.e3 
    186182            IF(lwp) WRITE(numout,*) 
    187183            IF(lwp) WRITE(numout,*) '             orca_r1: Lombok : e1v reduced to 10 km' 
    188184 
    189185            ii0 =  48           ;   ii1 =  48        ! Sumba Strait (e1v = 8 km) [closed from bathy_11 on] 
    190             ij0 = 124 + isrow   ;   ij1 = 125 + isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  8.e3 
     186            ij0 = 124 + isrow   ;   ij1 = 165 - isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) =  8.e3 
    191187            IF(lwp) WRITE(numout,*) 
    192188            IF(lwp) WRITE(numout,*) '             orca_r1: Sumba : e1v reduced to 8 km' 
    193189 
    194190            ii0 =  53           ;   ii1 =  53        ! Ombai Strait (e1v = 13 km) 
    195             ij0 = 124 + isrow   ;   ij1 = 125 + isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 13.e3 
     191            ij0 = 124 + isrow   ;   ij1 = 165 - isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 13.e3 
    196192            IF(lwp) WRITE(numout,*) 
    197193            IF(lwp) WRITE(numout,*) '             orca_r1: Ombai : e1v reduced to 13 km' 
    198194 
    199195            ii0 =  56           ;   ii1 =  56        ! Timor Passage (e1v = 20 km) 
    200             ij0 = 124 + isrow   ;   ij1 = 125 + isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 20.e3 
     196            ij0 = 124 + isrow   ;   ij1 = 145 - isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 20.e3 
    201197            IF(lwp) WRITE(numout,*) 
    202198            IF(lwp) WRITE(numout,*) '             orca_r1: Timor Passage : e1v reduced to 20 km' 
    203199 
    204200            ii0 =  55           ;   ii1 =  55        ! West Halmahera Strait (e1v = 30 km) 
    205             ij0 = 141 + isrow   ;   ij1 = 142 + isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 30.e3 
     201            ij0 = 141 + isrow   ;   ij1 = 182 - isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 30.e3 
    206202            IF(lwp) WRITE(numout,*) 
    207203            IF(lwp) WRITE(numout,*) '             orca_r1: W Halmahera : e1v reduced to 30 km' 
    208204 
    209205            ii0 =  58           ;   ii1 =  58        ! East Halmahera Strait (e1v = 50 km) 
    210             ij0 = 141 + isrow   ;   ij1 = 142 + isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 50.e3 
     206            ij0 = 141 + isrow   ;   ij1 = 182 - isrow   ;   e1v( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 50.e3 
    211207            IF(lwp) WRITE(numout,*) 
    212208            IF(lwp) WRITE(numout,*) '             orca_r1: E Halmahera : e1v reduced to 50 km' 

  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r5385 r5506  
    402402      IF( cp_cfg == "orca" .AND. jp_cfg == 1 ) THEN   ! ORCA R1 configuration 
    403403         !                                                 ! Increased lateral friction near of some straits 
    404          ! This dirty section will be suppressed by simplification process: all this will come back in input files 
    405          ! Currently these hard-wired indices relate to the original (pre-v3.6) configuration  
    406          ! which had a grid-size of 362x292. 
    407          ! This grid has been extended southwards for use with the under ice-shelf options (isf) introduced in v3.6.  
    408          ! The original domain can still be used optionally if the isf code is not activated.  
    409          ! An adjustment (isrow) is made to the hard-wired indices if the extended domain (362x332) is being used. 
    410          !  
    411          IF    ( jpjglo == 292 ) THEN  ;  isrow = 0  ! Using pre-v3.6 files or adjusted start row from isf-extended grid 
    412          ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 40 ! Using full isf­extended domain.  
    413          ENDIF      
    414  
     404         ! This dirty section will be suppressed by simplification process: 
     405         ! all this will come back in input files 
     406         ! Currently these hard-wired indices relate to configuration with 
     407         ! extend grid (jpjglo=332) 
     408         ! 
     409         isrow = 332 - jpjglo 
     410         ! 
    415411         IF(lwp) WRITE(numout,*) 
    416412         IF(lwp) WRITE(numout,*) '   orca_r1: increase friction near the following straits : ' 
    417413         IF(lwp) WRITE(numout,*) '      Gibraltar ' 
    418414         ii0 = 282           ;   ii1 = 283        ! Gibraltar Strait  
    419          ij0 = 201 + isrow   ;   ij1 = 201 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
     415         ij0 = 201 + isrow   ;   ij1 = 241 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
    420416 
    421417         IF(lwp) WRITE(numout,*) '      Bhosporus ' 
    422418         ii0 = 314           ;   ii1 = 315        ! Bhosporus Strait  
    423          ij0 = 208 + isrow   ;   ij1 = 208 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
     419         ij0 = 208 + isrow   ;   ij1 = 248 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
    424420 
    425421         IF(lwp) WRITE(numout,*) '      Makassar (Top) ' 
    426422         ii0 =  48           ;   ii1 =  48        ! Makassar Strait (Top)  
    427          ij0 = 149 + isrow   ;   ij1 = 150 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 3._wp   
     423         ij0 = 149 + isrow   ;   ij1 = 190 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 3._wp   
    428424 
    429425         IF(lwp) WRITE(numout,*) '      Lombok ' 
    430426         ii0 =  44           ;   ii1 =  44        ! Lombok Strait  
    431          ij0 = 124 + isrow   ;   ij1 = 125 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
     427         ij0 = 124 + isrow   ;   ij1 = 165 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
    432428 
    433429         IF(lwp) WRITE(numout,*) '      Ombai ' 
    434430         ii0 =  53           ;   ii1 =  53        ! Ombai Strait  
    435          ij0 = 124 + isrow   ;   ij1 = 125 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
     431         ij0 = 124 + isrow   ;   ij1 = 165 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
    436432 
    437433         IF(lwp) WRITE(numout,*) '      Timor Passage ' 
    438434         ii0 =  56           ;   ii1 =  56        ! Timor Passage  
    439          ij0 = 124 + isrow   ;   ij1 = 125 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
     435         ij0 = 124 + isrow   ;   ij1 = 165 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 2._wp   
    440436 
    441437         IF(lwp) WRITE(numout,*) '      West Halmahera ' 
    442438         ii0 =  58           ;   ii1 =  58        ! West Halmahera Strait  
    443          ij0 = 141 + isrow   ;   ij1 = 142 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 3._wp   
     439         ij0 = 141 + isrow   ;   ij1 = 182 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 3._wp   
    444440 
    445441         IF(lwp) WRITE(numout,*) '      East Halmahera ' 
    446442         ii0 =  55           ;   ii1 =  55        ! East Halmahera Strait  
    447          ij0 = 141 + isrow   ;   ij1 = 142 + isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 3._wp   
     443         ij0 = 141 + isrow   ;   ij1 = 182 - isrow   ;   fmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1),1:jpk ) = 3._wp   
    448444         ! 
    449445      ENDIF 

  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r5385 r5506  
    11231123      IF( cp_cfg == "orca" .AND. jp_cfg == 1 ) THEN    ! ORCA R1 configuration 
    11241124         !                                             ! ===================== 
    1125          ! This dirty section will be suppressed by simplification process: all this will come back in input files 
    1126          ! Currently these hard-wired indices relate to the original (pre-v3.6) configuration  
     1125         ! This dirty section will be suppressed by simplification process: 
     1126         ! all this will come back in input files 
     1127         ! Currently these hard-wired indices relate to configuration with 
     1128         ! extend grid (jpjglo=332) 
    11271129         ! which had a grid-size of 362x292. 
    1128          ! This grid has been extended southwards for use with the under ice-shelf options (isf) introduced in v3.6.  
    1129          ! The original domain can still be used optionally if the isf code is not activated.  
    1130          ! An adjustment (isrow) is made to the hard-wired indices if the extended domain (362x332) is being used. 
    1131          !  
    1132          IF    ( jpjglo == 292 ) THEN  ;  isrow = 0  ! Using pre-v3.6 files or adjusted start row from isf-extended grid 
    1133          ELSEIF( jpjglo == 332 ) THEN  ;  isrow = 40 ! Using full isf­extended domain.  
    1134          ENDIF      
     1130         isrow = 332 - jpjglo 
    11351131         ! 
    11361132         ii0 = 282           ;   ii1 = 283        ! Gibraltar Strait (e2u was modified) 
    1137          ij0 = 201 + isrow   ;   ij1 = 201 + isrow 
     1133         ij0 = 241 - isrow   ;   ij1 = 241 - isrow 
    11381134         DO jk = 1, jpkm1 
    11391135            DO jj = mj0(ij0), mj1(ij1) 
    … …  
    11561152         ! 
    11571153         ii0 = 314           ;   ii1 = 315        ! Bhosporus Strait (e2u was modified) 
    1158          ij0 = 208 + isrow   ;   ij1 = 208 + isrow 
     1154         ij0 = 248 - isrow   ;   ij1 = 248 - isrow 
    11591155         DO jk = 1, jpkm1 
    11601156            DO jj = mj0(ij0), mj1(ij1) 
    … …  
    11771173         ! 
    11781174         ii0 =  44           ;   ii1 =  44        ! Lombok Strait (e1v was modified) 
    1179          ij0 = 124 + isrow   ;   ij1 = 125 + isrow 
     1175         ij0 = 164 - isrow   ;   ij1 = 165 - isrow 
    11801176         DO jk = 1, jpkm1 
    11811177            DO jj = mj0(ij0), mj1(ij1) 
    … …  
    11931189         ! 
    11941190         ii0 =  48           ;   ii1 =  48        ! Sumba Strait (e1v was modified) [closed from bathy_11 on] 
    1195          ij0 = 124 + isrow   ;   ij1 = 125 + isrow 
     1191         ij0 = 164 - isrow   ;   ij1 = 165 - isrow 
    11961192         DO jk = 1, jpkm1 
    11971193            DO jj = mj0(ij0), mj1(ij1) 
    … …  
    12091205         ! 
    12101206         ii0 =  53          ;   ii1 =  53        ! Ombai Strait (e1v was modified) 
    1211          ij0 = 124 + isrow  ;   ij1 = 125  + isrow   
     1207         ij0 = 164 - isrow  ;   ij1 = 165  - isrow   
    12121208         DO jk = 1, jpkm1 
    12131209            DO jj = mj0(ij0), mj1(ij1) 
    … …  
    12241220         END DO 
    12251221         ! 
    1226          ii0 =  56             ;   ii1 =  56        ! Timor Passage (e1v was modified) 
    1227          ij0 = 124  + isrow    ;   ij1 = 125  + isrow   
     1222         ii0 =  56            ;   ii1 =  56        ! Timor Passage (e1v was modified) 
     1223         ij0 = 164 - isrow    ;   ij1 = 165  - isrow   
    12281224         DO jk = 1, jpkm1 
    12291225            DO jj = mj0(ij0), mj1(ij1) 
    … …  
    12401236         END DO 
    12411237         ! 
    1242          ii0 =  55             ;   ii1 =  55        ! West Halmahera Strait (e1v was modified) 
    1243          ij0 = 141  + isrow    ;   ij1 = 142  + isrow   
     1238         ii0 =  55            ;   ii1 =  55        ! West Halmahera Strait (e1v was modified) 
     1239         ij0 = 181 - isrow    ;   ij1 = 182 - isrow   
    12441240         DO jk = 1, jpkm1 
    12451241            DO jj = mj0(ij0), mj1(ij1) 
    … …  
    12561252         END DO 
    12571253         ! 
    1258          ii0 =  58             ;   ii1 =  58        ! East Halmahera Strait (e1v was modified) 
    1259          ij0 = 141  + isrow    ;   ij1 = 142  + isrow   
     1254         ii0 =  58            ;   ii1 =  58        ! East Halmahera Strait (e1v was modified) 
     1255         ij0 = 181 - isrow    ;   ij1 = 182 - isrow   
    12601256         DO jk = 1, jpkm1 
    12611257            DO jj = mj0(ij0), mj1(ij1) 

  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r5385 r5506  
    484484            CALL iom_close( inum ) 
    485485            mbathy(:,:) = INT( bathy(:,:) ) 
    486             ! 
    487             ! CL :  add Amazon deeper 
    488             IF( cp_cfg == "orca" .AND. jp_cfg == 1 ) THEN    ! ORCA R1 configuration  
    489                  ii0 = 230   ;   ii1 = 245                   ! Amazon area  
    490                  ij0 = 140   ;   ij1 = 155                   ! no ocean shallower than 30 meters 
    491                  DO ji = mi0(ii0), mi1(ii1) 
    492                     DO jj = mj0(ij0), mj1(ij1) 
    493                        IF( bathy(ji,jj) .LE. 30. .AND. bathy(ji,jj) .GT. 0.0 ) bathy(ji,jj) = 30._wp 
    494                     END DO 
    495                  END DO 
    496                  IF(lwp) WRITE(numout,*) 
    497                  IF(lwp) WRITE(numout,*) '             orca_r1: Amazon area not shallower than 30 meters for: ' 
    498                  IF(lwp) WRITE(numout,*) '                    Longitude index ',ii0, ii0 
    499                  IF(lwp) WRITE(numout,*) '                    Latitude index  ',ij0, ij0 
    500             ENDIF 
    501486            !                                                ! ===================== 
    502487            IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN    ! ORCA R2 configuration 

  • trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r5385 r5506  
    185185      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
    186186      ! 
    187       INTEGER :: ji, jj, jk, jn, jl, jc                     ! dummy loop indicesa 
     187      INTEGER :: ji , jj, jk, jn, jl, jc                     ! dummy loop indicesa 
     188      INTEGER :: isrow                                      ! local index 
    188189      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrcdta       ! 3D  workspace 
    189190 
    … …  
    201202            ! 
    202203            SELECT CASE ( jp_cfg ) 
     204            !                                           ! ======================= 
     205            CASE ( 1 )                                  ! eORCA_R1 configuration 
     206            !                                           ! ======================= 
     207            isrow = 332 - jpjglo 
     208            ! 
     209                                                        ! Caspian Sea 
     210            nctsi1(1)   = 332  ; nctsj1(1)   = 243 - isrow 
     211            nctsi2(1)   = 344  ; nctsj2(1)   = 275 - isrow 
     212            !                                         
    203213            !                                           ! ======================= 
    204214            CASE ( 2 )                                  !  ORCA_R2 configuration 
Note: See TracChangeset for help on using the changeset viewer.