Changeset 7379

Timestamp:

2016-11-30T11:16:15+01:00 (7 years ago)

Author:

clem

Message:

agrif debug

File:

• branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 (modified) (3 diffs)

branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -1 +1 @@
 #if defined key_agrif
 !!----------------------------------------------------------------------
-!! NEMO/NST 3.4 , NEMO Consortium (2012)
+!! NEMO/NST 3.7 , NEMO Consortium (2016)
 !! $Id$
 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
@@ -305 +305 @@
    ! Note that update below is recursive (with lk_agrif_doupd=T):
    ! 
-!!#if ! defined key_sas2D
 ! JC: I am not sure if Agrif_MaxLevel() is the "relative"
 !     or the absolute maximum nesting level...TBC                        
@@ -313 +312 @@
       CALL Agrif_Update_dyn()
    ENDIF
-!!#endif   
    !
 # if defined key_zdftke
-!   CALL Agrif_Update_tke(0)
+   CALL Agrif_Update_tke(0)
 # endif
    !