Changeset 508 for trunk/NEMO/LIM_SRC/limdyn.F90

Timestamp:

2006-10-03T17:58:55+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_071:RB: add iom for restart and reorganization of restart

File:

• trunk/NEMO/LIM_SRC/limdyn.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC/limdyn.F90

@@ -42 +42 @@
 CONTAINS
 
-   SUBROUTINE lim_dyn
+   SUBROUTINE lim_dyn( kt )
       !!-------------------------------------------------------------------
       !!               ***  ROUTINE lim_dyn  ***
@@ -58 +58 @@
       !!   2.0  !  02-08  (C. Ethe, G. Madec)  F90, mpp
       !!---------------------------------------------------------------------
-      !! * Loal variables
+      INTEGER, INTENT(in) ::   kt     ! number of iteration
+
       INTEGER ::   ji, jj             ! dummy loop indices
       INTEGER ::   i_j1, i_jpj        ! Starting/ending j-indices for rheology
@@ -73 +74 @@
       !!---------------------------------------------------------------------
 
-      IF( numit == nstart  )   CALL lim_dyn_init   ! Initialization (first time-step only)
+      IF( kt == nit000  )   CALL lim_dyn_init   ! Initialization (first time-step only)
       
       IF ( ln_limdyn ) THEN