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 8003 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90 – NEMO

Ignore:
Timestamp:
2017-05-09T12:14:45+02:00 (7 years ago)
Author:
aumont
Message:

modification in the code to remove unnecessary parts such as kriest and non iomput options

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r7617 r8003  
    476476         END DO 
    477477         IF( cp_cfg == 'orca' .AND. jp_cfg == 2 ) THEN 
    478             ii0 = 176   ;   ii1 =  176        ! Southern Island : Kerguelen 
    479             ij0 =  37   ;   ij1 =   37  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
     478            ii0 = 177   ;   ii1 =  177        ! Southern Island : Kerguelen 
     479            ij0 =  38   ;   ij1 =   38  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
    480480            ! 
    481481            ii0 = 119   ;   ii1 =  119        ! South Georgia 
    482             ij0 =  29   ;   ij1 =   29  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
    483             ! 
    484             ii0 = 111   ;   ii1 =  111        ! Falklands 
    485             ij0 =  35   ;   ij1 =   35  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
    486             ! 
    487             ii0 = 168   ;   ii1 =  168        ! Crozet 
     482            ij0 =  28   ;   ij1 =   28  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
     483            ! 
     484            ii0 = 167   ;   ii1 =  167        ! Crozet 
    488485            ij0 =  40   ;   ij1 =   40  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
    489486            ! 
    … …  
    491488            ij0 =  28   ;   ij1 =   28  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
    492489            ! 
    493             ii0 = 140   ;   ii1 =  140        ! Bouvet Island 
     490            ii0 = 144   ;   ii1 =  144        ! Bouvet Island 
    494491            ij0 =  33   ;   ij1 =   33  ;   zcmask( mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1), 1:jpk ) =  0.3_wp   
    495492            ! 
Note: See TracChangeset for help on using the changeset viewer.