Changeset 9780 for NEMO/trunk/src/NST/agrif_ice_update.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/NST/agrif_ice_update.F90 (modified) (2 diffs)

NEMO/trunk/src/NST/agrif_ice_update.F90

@@ -42 +42 @@
 CONTAINS
 
-   SUBROUTINE agrif_update_ice( kt )
+   SUBROUTINE agrif_update_ice( )
       !!----------------------------------------------------------------------
       !!                     *** ROUTINE agrif_update_ice ***
@@ -49 +49 @@
       !! ** Action : - Update (u_ice,v_ice) and ice tracers
       !!----------------------------------------------------------------------
-      INTEGER, INTENT(in) :: kt
-      !!----------------------------------------------------------------------
       !
       IF( Agrif_Root() .OR. nn_ice == 0 ) RETURN   ! do not update if inside Parent Grid or if child domain does not have ice
       !
-      IF( ( MOD( (kt-nit000)/nn_fsbc + 1, Agrif_irhot() * Agrif_Parent(nn_fsbc)/nn_fsbc ) /=0 ) .AND. (kt /= 0) ) RETURN   ! update only at the parent ice time step
+      IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update sea ice from grid Number',Agrif_Fixed()
+      !
+!      IF( ( MOD( (kt-nit000)/nn_fsbc + 1, Agrif_irhot() * Agrif_Parent(nn_fsbc)/nn_fsbc ) /=0 ) .AND. (kt /= 0) ) RETURN   ! update only at the parent ice time step
       !
       Agrif_SpecialValueFineGrid    = -9999.