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

Changeset 13674


Ignore:
Timestamp:
2020-10-26T09:48:07+01:00 (3 years ago)
Author:
jchanut
Message:

#2222, suppress update of barotropic corrective fluxes due to asselin filter at first Euler time step. Even better conservation of volume.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/NST/agrif_oce_update.F90

    r13565 r13674  
    974974               ub2_i_b(ji,jj) = ub2_i_b(ji,jj) + za1 * zcor  
    975975               ! Update corrective fluxes: 
    976                un_bf(ji,jj)  = un_bf(ji,jj) + zcor 
     976               IF (.NOT.(lk_agrif_fstep.AND.(l_1st_euler))) un_bf(ji,jj)  = un_bf(ji,jj) + zcor 
    977977               ! Update half step back fluxes: 
    978978               ub2_b(ji,jj) = tabres(ji,jj) 
     
    10621062               vb2_i_b(ji,jj) = vb2_i_b(ji,jj) + za1 * zcor  
    10631063               ! Update corrective fluxes: 
    1064                vn_bf(ji,jj)  = vn_bf(ji,jj) + zcor 
     1064               IF (.NOT.(lk_agrif_fstep.AND.(l_1st_euler)))  vn_bf(ji,jj)  = vn_bf(ji,jj) + zcor 
    10651065               ! Update half step back fluxes: 
    10661066               vb2_b(ji,jj) = tabres(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.