Changeset 9510

Timestamp:

2018-04-27T11:55:57+02:00 (6 years ago)

Author:

clem

Message:

fix restartability with SAS module ==> SAS_BIPER is now restartable

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC

Files:

• step.F90 (modified) (3 diffs)
• stpctl.F90 (modified) (2 diffs)

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

@@ -38 +38 @@
 #if defined key_agrif
    USE agrif_oce, ONLY: lk_agrif_debug
+#if defined key_lim3
+   USE agrif_lim3_update
+#endif
 #endif
    
@@ -46 +49 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
+   !! NEMO/OPA 4.0 , NEMO Consortium (2017)
    !! $Id$
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -104 +107 @@
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<      
                              CALL Agrif_Integrate_ChildGrids( stp )  
+
+      IF( Agrif_NbStepint() == 0 ) THEN               ! AGRIF Update from zoom N to zoom 1 then to Parent 
+#if defined key_lim3
+                             CALL Agrif_Update_lim3( kstp )   ! update sea-ice
+#endif
+      ENDIF
 #endif
                              

branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/stpctl.F90

@@ -70 +70 @@
          IF( lwm ) THEN
             istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun )
-            istatus = NF90_DEF_DIM( idrun, 'time', NF90_UNLIMITED, idtime )
-            istatus = NF90_DEF_VAR( idrun, 'abs_ssh_max', NF90_DOUBLE, (/ idtime /), idssh )
-            istatus = NF90_DEF_VAR( idrun,   'abs_u_max', NF90_DOUBLE, (/ idtime /), idu )
-            istatus = NF90_DEF_VAR( idrun,       's_min', NF90_DOUBLE, (/ idtime /), ids )
+            istatus = NF90_DEF_DIM( idrun, 'time'     , NF90_UNLIMITED, idtime )
+            istatus = NF90_DEF_VAR( idrun, 'vt_i_max' , NF90_DOUBLE, (/ idtime /), idssh )
+            istatus = NF90_DEF_VAR( idrun, 'abs_u_max', NF90_DOUBLE, (/ idtime /), idu )
+            istatus = NF90_DEF_VAR( idrun, 'tm_i_min' , NF90_DOUBLE, (/ idtime /), ids )
             istatus = NF90_ENDDEF(idrun)
          ENDIF
@@ -106 +106 @@
       END IF
       !
-9400  FORMAT(' it :', i8, '    |ssh|_max: ', D23.16, ' |U|_max: ', D23.16,' S_min: ', D23.16)
+9400  FORMAT(' it :', i8, '    vt_i_max: ', D23.16, ' |u|_max: ', D23.16,' tm_i_min: ', D23.16)
       !
    END SUBROUTINE stp_ctl