Changeset 7971 for branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

Timestamp:

2017-04-26T12:03:26+02:00 (8 years ago)

Author:

jchanut

Message:

Add zstar coordinate with AGRIF

File:

• branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 (modified) (2 diffs)

branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -309 +309 @@
 !     or the absolute maximum nesting level...TBC                        
    IF ( Agrif_Level().EQ.Agrif_MaxLevel() ) THEN 
-      ! NB: Do tracers first, dynamics after because nbcline incremented in dynamics
+      ! NB: Order matters below: 
+      CALL Agrif_Update_vvl() 
       CALL Agrif_Update_tra()
       CALL Agrif_Update_dyn()
@@ -445 +446 @@
    CALL Agrif_Set_Updatetype(avm_id, update = AGRIF_Update_Average)
 # endif
+
+   CALL Agrif_Set_Updatetype(e3t_id, update = AGRIF_Update_Average)
 
 ! High order updates