Changeset 8129 for branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/SAS_SRC

Timestamp:

2017-06-02T16:08:12+02:00 (7 years ago)

Author:

clem

Message:

make those things work: ghostcells>1 + nn_ice(child)=0 + fix timing

Location:

branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/SAS_SRC

Files:

• diawri.F90 (modified) (1 diff)
• nemogcm.F90 (modified) (1 diff)

branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/SAS_SRC/diawri.F90

@@ -400 +400 @@
       CALL lim_wri_state_2( kt, id_i, nh_i )
 #elif defined key_lim3
-      CALL lim_wri_state( kt, id_i, nh_i )
+      IF( nn_ice == 3 ) THEN   ! clem2017: condition in case agrif + lim but no-ice in child grid
+         CALL lim_wri_state( kt, id_i, nh_i )
+      ENDIF
 #else
       CALL histend( id_i, snc4chunks=snc4set )

branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

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