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

Changeset 15317


Ignore:
Timestamp:
2021-10-01T18:09:36+02:00 (20 months ago)
Author:
jchanut
Message:

#2222, corrections to run AGRIF zooms with the same vertical grid as parent, but less vertical levels

Location:
NEMO/trunk/src/NST
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/NST/agrif_oce_sponge.F90

    r14976 r15317  
    688688            END DO 
    689689 
    690             ubdiff(i1:i2,j1:j2,:) = (uu(i1:i2,j1:j2,:,Kbb_a) - tabres_child(i1:i2,j1:j2,:))*umask(i1:i2,j1:j2,:) 
     690            ubdiff(i1:i2,j1:j2,1:jpk) = (uu(i1:i2,j1:j2,1:jpk,Kbb_a) - tabres_child(i1:i2,j1:j2,1:jpk))*umask(i1:i2,j1:j2,1:jpk) 
    691691         ELSE 
    692692 
    693             ubdiff(i1:i2,j1:j2,:) = (uu(i1:i2,j1:j2,:,Kbb_a) - tabres(i1:i2,j1:j2,:,1))*umask(i1:i2,j1:j2,:) 
     693            ubdiff(i1:i2,j1:j2,1:jpk) = (uu(i1:i2,j1:j2,1:jpk,Kbb_a) - tabres(i1:i2,j1:j2,1:jpk,1))*umask(i1:i2,j1:j2,1:jpk) 
    694694   
    695695         ENDIF 
    … …  
    872872            END DO 
    873873 
    874             vbdiff(i1:i2,j1:j2,:) = (vv(i1:i2,j1:j2,:,Kbb_a) - tabres_child(i1:i2,j1:j2,:))*vmask(i1:i2,j1:j2,:)   
     874            vbdiff(i1:i2,j1:j2,1:jpk) = (vv(i1:i2,j1:j2,1:jpk,Kbb_a) - tabres_child(i1:i2,j1:j2,1:jpk))*vmask(i1:i2,j1:j2,1:jpk)   
    875875         ELSE 
    876876 
    877             vbdiff(i1:i2,j1:j2,:) = (vv(i1:i2,j1:j2,:,Kbb_a) - tabres(i1:i2,j1:j2,:,1))*vmask(i1:i2,j1:j2,:) 
     877            vbdiff(i1:i2,j1:j2,1:jpk) = (vv(i1:i2,j1:j2,1:jpk,Kbb_a) - tabres(i1:i2,j1:j2,1:jpk,1))*vmask(i1:i2,j1:j2,1:jpk) 
    878878 
    879879         ENDIF 

  • NEMO/trunk/src/NST/agrif_oce_update.F90

    r15265 r15317  
    548548 
    549549         ELSE 
    550             DO jk=1,jpk 
     550            DO jk=k1,k2 
    551551               DO jj=j1,j2 
    552552                  DO ji=i1,i2 
    … …  
    695695 
    696696         ELSE 
    697             DO jk=1,jpk 
     697            DO jk=k1,k2 
    698698               DO jj=j1,j2 
    699699                  DO ji=i1,i2 
Note: See TracChangeset for help on using the changeset viewer.