Changeset 9116 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90

Timestamp:

2017-12-18T15:24:31+01:00 (6 years ago)

Author:

jchanut

Message:

Finalize AGRIF ghost cells implementation: ensure compatibility with bdy smoothing or extrapolation

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90

@@ -261 +261 @@
       ! 2) BEFORE fields:
       !------------------
-!      IF (     (.NOT.(lk_agrif_fstep.AND.(neuler==0)).AND.(ln_dynspg_exp)) &
-!         & .OR.(.NOT.(lk_agrif_fstep.AND.(neuler==0)).AND.(ln_dynspg_ts    &
-!         & .AND.(.NOT.ln_bt_fw)))) THEN
       IF (.NOT.(lk_agrif_fstep.AND.(neuler==0) )) THEN
          !
@@ -305 +302 @@
       INTEGER  :: N_in, N_out
       REAL(wp) :: h_diff
-      REAL(wp) :: zrho_xy
       REAL(wp) :: tabin(k1:k2,n1:n2)
       !!---------------------------------------------