Changeset 3454 for branches/2012/dev_r3387_LOCEAN6_AGRIF_LIM/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2012-08-21T10:01:18+02:00 (12 years ago)

Author:

rblod

Message:

branch dev_r3387_LOCEAN6_AGRIF_LIM: add modified routines, see ticket #848

File:

• branches/2012/dev_r3387_LOCEAN6_AGRIF_LIM/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (4 diffs)

branches/2012/dev_r3387_LOCEAN6_AGRIF_LIM/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -48 +48 @@
    USE in_out_manager   ! I/O manager
    USE prtctl           ! Print control
+
+# if defined key_agrif
+   USE agrif_ice
+   USE agrif_lim2_update
+# endif
 
    IMPLICIT NONE
@@ -101 +106 @@
          !
          CALL ice_init_2
+         !
+# if defined key_agrif
+         IF( .NOT. Agrif_Root() ) CALL Agrif_InitValues_cont_lim2   ! AGRIF: set the meshes
+# endif
       ENDIF
 
@@ -106 +115 @@
       IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN     !  Ice time-step only  !
          !                                     !----------------------!
+# if defined key_agrif
+         IF( .NOT. Agrif_Root() ) lim_nbstep = MOD(lim_nbstep,Agrif_rhot()&
+         &*Agrif_PArent(nn_fsbc)/REAL(nn_fsbc)) + 1
+# endif
          !  Bulk Formulea !
          !----------------!
@@ -211 +224 @@
          IF( lrst_ice  )   CALL lim_rst_write_2( kt )      ! Ice restart file
          !
+# if defined key_agrif && defined key_lim2
+         IF( .NOT. Agrif_Root() )   CALL agrif_update_lim2( kt )
+# endif
+         !
       ENDIF                                    ! End sea-ice time step only
       !