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

Timestamp:

2005-09-22T12:28:03+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_001 : CT : to ensure the coherence between ocean & sea-ice fields if making a restart in using DIMG format

File:

• trunk/NEMO/LIM_SRC/limwri_dimg.h90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limwri_dimg.h90

@@ -15 +15 @@
     !!-------------------------------------------------------------------
     !! * Local variables
-    USE  diawri, ONLY : dia_wri_dimg
+    USE  diadimg                ! use of dia_wri_dimg
     REAL(wp),DIMENSION(1) ::   zdept
 
@@ -130 +130 @@
     nmoyice = nmoyice + 1 
     ! compute mean value if it is time to write on file
-    IF ( MOD(numit,nwrite) == 0 ) THEN
+    IF ( MOD(numit-nit000+1,nwrite) == 0 ) THEN
        rcmoy(:,:,:) = rcmoy(:,:,:) / FLOAT(nmoyice)
 #else  
-       IF ( MOD(numit,nwrite) == 0 ) THEN 
+       IF ( MOD(numit-nit000+1,nwrite) == 0 ) THEN 
           !  case of instantaneaous output rcmoy(:,:, 1:jpnoumax ) = 0.e0
           DO jj = 2 , jpjm1