Changeset 9781 for NEMO/trunk/src/SAS/nemogcm.F90

Timestamp:

2018-06-12T15:41:29+02:00 (5 years ago)

Author:

jchanut

Message:

Reorganize Agrif update: make it compliant with SAS

File:

• NEMO/trunk/src/SAS/nemogcm.F90 (modified) (2 diffs)

NEMO/trunk/src/SAS/nemogcm.F90

@@ -40 +40 @@
    USE xios           ! xIOserver
 #endif
+#if defined key_agrif && defined key_si3
+   USE agrif_ice_update ! ice update
+#endif
 
    IMPLICIT NONE
@@ -103 +106 @@
       !                                               !==  AGRIF time-stepping  ==!
       CALL Agrif_Regrid()
+      !
+#if defined key_si3
+      ! Recursive update from highest nested level to lowest:
+      CALL Agrif_step_child_adj(Agrif_update_ice)
+#endif
       !
       DO WHILE( istp <= nitend .AND. nstop == 0 )