Changeset 9759


Ignore:
Timestamp:
2018-06-07T11:20:58+02:00 (2 years ago)
Author:
jchanut
Message:

Mask tracers in AGRIF ghost zone (comestic)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_oce_interp.F90

    r9748 r9759  
    712712# endif 
    713713         ! 
    714          tsa(i1:i2,j1:j2,1:jpk,1:jpts) = ptab_child(i1:i2,j1:j2,1:jpk,1:jpts) 
     714         DO jn=1, jpts 
     715            tsa(i1:i2,j1:j2,1:jpk,jn)=ptab_child(i1:i2,j1:j2,1:jpk,jn)*tmask(i1:i2,j1:j2,1:jpk)  
     716         END DO 
    715717 
    716718         IF ( .NOT.lk_agrif_clp ) THEN  
Note: See TracChangeset for help on using the changeset viewer.