Changeset 14143 for NEMO/trunk/src/NST

Timestamp:

2020-12-09T22:26:04+01:00 (3 years ago)

Author:

techene

Message:

#2385 add key_linssh equivalent to ln_linssh using domzr_substitute

File:

• NEMO/trunk/src/NST/agrif_oce_update.F90 (modified) (4 diffs)

NEMO/trunk/src/NST/agrif_oce_update.F90

@@ -192 +192 @@
       IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update e3 from grid Number',Agrif_Fixed(), 'Step', Agrif_Nb_Step()
       !
-#if ! defined key_qco
+#if defined key_qco
+      CALL Agrif_ChildGrid_To_ParentGrid()
+      CALL Agrif_Update_qco
+      CALL Agrif_ParentGrid_To_ChildGrid()
+#elif defined key_linssh
+      !
+#else
       Agrif_UseSpecialValueInUpdate = .TRUE.
       Agrif_SpecialValueFineGrid = 0.
@@ -204 +210 @@
       CALL Agrif_ChildGrid_To_ParentGrid()
       CALL dom_vvl_update_UVF
-      CALL Agrif_ParentGrid_To_ChildGrid()
-#else
-      CALL Agrif_ChildGrid_To_ParentGrid()
-      CALL Agrif_Update_qco
       CALL Agrif_ParentGrid_To_ChildGrid()
 #endif
@@ -232 +234 @@
 
 
-#if ! defined key_qco
+#if ! defined key_qco   &&   ! defined key_linssh
    SUBROUTINE dom_vvl_update_UVF
       !!---------------------------------------------
@@ -1163 +1165 @@
    END SUBROUTINE updateAVM
 
-#if ! defined key_qco
+#if ! defined key_qco   &&   ! defined key_linssh
    SUBROUTINE updatee3t(ptab_dum, i1, i2, j1, j2, k1, k2, before )
       !!---------------------------------------------