Changeset 508 for trunk/NEMO/LIM_SRC/limtrp.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/limtrp.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC/limtrp.F90

@@ -54 +54 @@
 CONTAINS
 
-   SUBROUTINE lim_trp
+   SUBROUTINE lim_trp( kt )
       !!-------------------------------------------------------------------
       !!                   ***  ROUTINE lim_trp ***
@@ -71 +71 @@
       !!   2.0  !  04-01 (G. Madec, C. Ethe)  F90, mpp
       !!---------------------------------------------------------------------
-      !! * Local Variables
+      INTEGER, INTENT(in) ::   kt     ! number of iteration
+
       INTEGER  ::   ji, jj, jk,   &  ! dummy loop indices
          &          initad           ! number of sub-timestep for the advection
@@ -96 +97 @@
       !---------------------------------------------------------------------
 
-      IF( numit == nstart  )   CALL lim_trp_init      ! Initialization (first time-step only)
+      IF( kt == nit000  )   CALL lim_trp_init      ! Initialization (first time-step only)
 
       zsm(:,:) = area(:,:)