Changeset 8974 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2017-12-11T13:55:33+01:00 (6 years ago)

Author:

clem

Message:

put back an IF(.NOT. Agrif_root) in nemogcm that was removed in the trunk at r8570 for timing purpose. See also ticket #1836. This fix is needed for the SETTE test AGRIF NOZOOM otherwise core files are created (because of the call to Agrif_ParentGrid_To_ChildGrid())

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (1 diff)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -202 +202 @@
       !
 #if defined key_agrif
-      CALL Agrif_ParentGrid_To_ChildGrid()
-      IF( ln_diaobs )        CALL dia_obs_wri
-      IF( nn_timing == 1 )   CALL timing_finalize
-      CALL Agrif_ChildGrid_To_ParentGrid()
+      IF( .NOT. Agrif_Root() ) THEN
+         CALL Agrif_ParentGrid_To_ChildGrid()
+         IF( ln_diaobs )        CALL dia_obs_wri
+         IF( nn_timing == 1 )   CALL timing_finalize
+         CALL Agrif_ChildGrid_To_ParentGrid()
+      ENDIF
 #endif
       IF( ln_timing    )   CALL timing_finalize