Changeset 508 for trunk/NEMO/LIM_SRC/limwri_dimg.h90

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/limwri_dimg.h90 (modified) (5 diffs)

trunk/NEMO/LIM_SRC/limwri_dimg.h90

@@ -1 @@
-    SUBROUTINE lim_wri
+    SUBROUTINE lim_wri(kt)
    !!----------------------------------------------------------------------
    !!  LIM 2.0, UCL-LOCEAN-IPSL (2005)
@@ -14 +14 @@
     !!  modif : 03/06/98
     !!-------------------------------------------------------------------
-    !! * Local variables
     USE  diadimg                ! use of dia_wri_dimg
+
+    INTEGER, INTENT(in) ::   kt     ! number of iteration
+
     REAL(wp),DIMENSION(1) ::   zdept
 
@@ -48 +50 @@
          ndex51  
     !!-------------------------------------------------------------------
-    IF ( numit == nstart ) THEN 
+    IF ( kt == nit000 ) THEN 
 
        CALL lim_wri_init 
@@ -130 +132 @@
     nmoyice = nmoyice + 1 
     ! compute mean value if it is time to write on file
-    IF ( MOD(numit-nit000+1,nwrite) == 0 ) THEN
+    IF ( MOD(kt+nfice-1-nit000+1,nwrite) == 0 ) THEN
        rcmoy(:,:,:) = rcmoy(:,:,:) / FLOAT(nmoyice)
 #else  
-       IF ( MOD(numit-nit000+1,nwrite) == 0 ) THEN 
+       IF ( MOD(kt-nfice-1-nit000+1,nwrite) == 0 ) THEN 
           !  case of instantaneaous output rcmoy(:,:, 1:jpnoumax ) = 0.e0
           DO jj = 2 , jpjm1
@@ -200 +202 @@
           rcmoy(:,:,:) = 0.0
           nmoyice = 0 
-       END IF     !  MOD(numit, nwrite == 0 ) !
+       END IF     !  MOD(kt+nfice-1-nit000+1, nwrite == 0 ) !
 
      END SUBROUTINE lim_wri