Changeset 674 for trunk/NEMO

Timestamp:

2007-06-01T19:38:09+02:00 (17 years ago)

Author:

ctlod

Message:

nemo_v2_bugfix_045 : CT : move daily interpolation out of the reading section loop of monthly fields

File:

• trunk/NEMO/LIM_SRC/limdmp.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limdmp.F90

@@ -154 +154 @@
             CALL prihre( frld_data(1,1,1), jpi, jpj, 1, jpi, 20, 1, jpj, 20, 1., numout )
          ENDIF
-         
-         ! 2. At every time step compute ice thickness and fraction lead data
-         ! ------------------------------------------------------------------
-         zxy = FLOAT( nday + 15 - 30 * i15 ) / 30.
-         hicif_dta(:,:) = (1.-zxy) * hicif_data(:,:,1) + zxy * hicif_data(:,:,2)
-         frld_dta(:,:) = (1.-zxy) * frld_data(:,:,1) + zxy * frld_data(:,:,2)
+
+         CALL FLUSH(numout)
 
       ENDIF
-      
+        
+      ! 3. At every time step compute ice thickness and fraction lead data
+      ! ------------------------------------------------------------------
+      zxy = FLOAT( nday + 15 - 30 * i15 ) / 30.
+      hicif_dta(:,:) = (1.-zxy) * hicif_data(:,:,1) + zxy * hicif_data(:,:,2)
+      frld_dta (:,:) = (1.-zxy) * frld_data (:,:,1) + zxy * frld_data (:,:,2)
+
       IF( kt == nitend )   CALL iom_close( inumice_dmp )
       !