Changeset 14027

Timestamp:

2020-12-03T10:12:29+01:00 (3 years ago)

Author:

jchanut

Message:

Remove circular dependency between dynspg_ts and agrif_oce_inter, #2385p

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/NST/agrif_oce_interp.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/NST/agrif_oce_interp.F90

@@ -28 +28 @@
    USE agrif_oce
    USE phycst
-   USE dynspg_ts, ONLY: un_adv, vn_adv
+!!!   USE dynspg_ts, ONLY: un_adv, vn_adv
    !
    USE in_out_manager
@@ -1193 +1193 @@
       !!----------------------------------------------------------------------  
       IF( before ) THEN
-         IF ( ln_bt_fw ) THEN
+!         IF ( ln_bt_fw ) THEN
             ptab(i1:i2,j1:j2) = e2u(i1:i2,j1:j2) * ub2_b(i1:i2,j1:j2)
-         ELSE
-            ptab(i1:i2,j1:j2) = e2u(i1:i2,j1:j2) * un_adv(i1:i2,j1:j2)
-         ENDIF
+!         ELSE
+!            ptab(i1:i2,j1:j2) = e2u(i1:i2,j1:j2) * un_adv(i1:i2,j1:j2)
+!         ENDIF
       ELSE
          zrhot = Agrif_rhot()
@@ -1229 +1229 @@
       !
       IF( before ) THEN
-         IF ( ln_bt_fw ) THEN
+!         IF ( ln_bt_fw ) THEN
             ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2) * vb2_b(i1:i2,j1:j2)
-         ELSE
-            ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2) * vn_adv(i1:i2,j1:j2)
-         ENDIF
+!         ELSE
+!            ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2) * vn_adv(i1:i2,j1:j2)
+!         ENDIF
       ELSE      
          zrhot = Agrif_rhot()