Changeset 9485 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2018-04-14T13:18:45+02:00 (6 years ago)

Author:

clem

Message:

make sure that the double zoom configuration agrif_nordic is restartable. One must have moved the call to sea ice update at the end of step (after integrate_childgrids)

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -292 +292 @@
       ! AGRIF
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<      
-                         CALL Agrif_Integrate_ChildGrids( stp )  
-
-      IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update 
+                         CALL Agrif_Integrate_ChildGrids( stp )  ! allows to finish all the Child Grids before updating
+
+      IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update from zoom N to zoom 1 then to Parent 
 !!jc in fact update is useless at last time step, but do it for global diagnostics
-                              CALL Agrif_Update_ssh()    ! Update ssh
-         IF(.NOT.ln_linssh)   CALL Agrif_Update_vvl()    ! Update vertical scale factors  
-                              CALL Agrif_Update_Tra()    ! Update active tracers
-                              CALL Agrif_Update_Dyn()    ! Update momentum
+#if defined key_lim3
+                              CALL Agrif_Update_lim3( kstp )   ! update sea-ice
+#endif
+                              CALL Agrif_Update_ssh()          ! Update ssh
+         IF(.NOT.ln_linssh)   CALL Agrif_Update_vvl()          ! Update vertical scale factors  
+                              CALL Agrif_Update_Tra()          ! Update active tracers
+                              CALL Agrif_Update_Dyn()          ! Update momentum
 # if defined key_top
-                              CALL Agrif_Update_Trc()    ! Update passive tracers
+                              CALL Agrif_Update_Trc()          ! Update passive tracers
 # endif
       ENDIF