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 5348 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90 – NEMO

Ignore:
Timestamp:
2015-06-04T13:10:38+02:00 (9 years ago)
Author:
cetlod
Message:

dev_r5204_CNRS_PISCES_dcy : Add a leapfrog temporal scheme in PISCES model

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r5315 r5348  
    188188      INTEGER  :: ios                 ! Local integer output status for namelist read 
    189189      INTEGER  :: ik50                !  last level where depth less than 50 m 
    190       INTEGER  ::   isrow             ! index for ORCA1 starting row 
     190      INTEGER  :: isrow             ! index for ORCA1 starting row 
    191191      REAL(wp) :: zexpide, zdenitide, zmaskt 
    192192      REAL(wp) :: ztimes_dust, ztimes_riv, ztimes_ndep  
    … …  
    476476 
    477477               ii0 = 357             ;   ii1 =  357        ! Southern Island : Kerguelen 
    478                ij0 =  75  + iswrow   ;   ij1 =  76   + iswrow   
     478               ij0 =  75  + isrow   ;   ij1 =  76   + isrow   
    479479               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    480480               ! 
    481481               ii0 = 243             ;   ii1 =  243        ! South Georgia 
    482                ij0 =  57  + iswrow   ;   ij1 =   59  + iswrow  
     482               ij0 =  57  + isrow   ;   ij1 =   59  + isrow  
    483483               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    484484               ! 
    485485               ii0 = 227             ;   ii1 =  227        ! Falklands 
    486                ij0 =  71  + iswrow   ;   ij1 =   73  + iswrow   
     486               ij0 =  71  + isrow   ;   ij1 =   73  + isrow   
    487487               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    488488               ! 
    489489               ii0 = 326             ;   ii1 =  327        ! Crozet 
    490                ij0 =  79  + iswrow   ;   ij1 =   79  + iswrow  
     490               ij0 =  79  + isrow   ;   ij1 =   79  + isrow  
    491491               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    492492               !  
    493493               ii0 = 243             ;   ii1 =  243        ! South Orkney 
    494                ij0 =  56  + iswrow   ;   ij1 =   56  + iswrow   
     494               ij0 =  56  + isrow   ;   ij1 =   56  + isrow   
    495495               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    496496               ! 
    497497               ii0 = 283             ;   ii1 =  286        ! Bouvet Island 
    498                ij0 =  66  + iswrow   ;   ij1 =   66  + iswrow   
     498               ij0 =  66  + isrow   ;   ij1 =   66  + isrow   
    499499               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    500500               ! 
    501501               ii0 = 361             ;   ii1 =  361        ! Prince edwards 
    502                ij0 =  67  + iswrow   ;   ij1 =   68  + iswrow  
     502               ij0 =  67  + isrow   ;   ij1 =   68  + isrow  
    503503               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    504504               ! 
    505505               ii0 =  91             ;   ii1 =   92        ! Balleny islands 
    506                ij0 =  42  + iswrow   ;   ij1 =   43  + iswrow  
     506               ij0 =  42  + isrow   ;   ij1 =   43  + isrow  
    507507               zcmask( mi0(ii0):mi1(ii1),mj0(ij0):mj1(ij1), 1:jpk ) = 0.3_wp 
    508508               ! 
Note: See TracChangeset for help on using the changeset viewer.