Changeset 9780 for NEMO/trunk/src/OCE/nemogcm.F90

Timestamp:

2018-06-12T14:12:51+02:00 (6 years ago)

Author:

jchanut

Message:

Reorganize Agrif update in a single subroutine ; use adjoint stepping for initial state update

File:

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

NEMO/trunk/src/OCE/nemogcm.F90

@@ -89 +89 @@
    USE xios           ! xIOserver
 #endif
+#if defined key_agrif
+   USE agrif_all_update   ! Master Agrif update
+#endif
 
    IMPLICIT NONE
@@ -160 +163 @@
       !                                               !==  AGRIF time-stepping  ==!
       CALL Agrif_Regrid()
+      !
+      ! Recursive update from highest nested level to lowest:
+      CALL Agrif_step_child_adj(Agrif_Update_All)
       !
       DO WHILE( istp <= nitend .AND. nstop == 0 )