Changeset 13674 for NEMO/branches/2020
- Timestamp:
- 2020-10-26T09:48:07+01:00 (4 years ago)
- 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 974 974 ub2_i_b(ji,jj) = ub2_i_b(ji,jj) + za1 * zcor 975 975 ! Update corrective fluxes: 976 un_bf(ji,jj) = un_bf(ji,jj) + zcor976 IF (.NOT.(lk_agrif_fstep.AND.(l_1st_euler))) un_bf(ji,jj) = un_bf(ji,jj) + zcor 977 977 ! Update half step back fluxes: 978 978 ub2_b(ji,jj) = tabres(ji,jj) … … 1062 1062 vb2_i_b(ji,jj) = vb2_i_b(ji,jj) + za1 * zcor 1063 1063 ! Update corrective fluxes: 1064 vn_bf(ji,jj) = vn_bf(ji,jj) + zcor1064 IF (.NOT.(lk_agrif_fstep.AND.(l_1st_euler))) vn_bf(ji,jj) = vn_bf(ji,jj) + zcor 1065 1065 ! Update half step back fluxes: 1066 1066 vb2_b(ji,jj) = tabres(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.