Changeset 1318 for trunk/NEMO/C1D_SRC/diawri_c1d.F90

Timestamp:

2009-02-17T17:38:18+01:00 (15 years ago)

Author:

smasson

Message:

supress useless call to histsync, see ticket:340

File:

• trunk/NEMO/C1D_SRC/diawri_c1d.F90 (modified) (1 diff)

trunk/NEMO/C1D_SRC/diawri_c1d.F90

@@ -343 +343 @@
       ENDIF
 
-      ! 3. Synchronise and close all files
-      ! ---------------------------------------
-      IF( MOD( it, nwrite ) == 0 .OR. kindic < 0 )   CALL histsync( nid_T )
-
       !  Create an output files (output.abort.nc) if S < 0 or u > 20 m/s
       IF( kindic < 0 )   CALL dia_wri_state( 'output.abort' )
 
+      ! 3. Close all files
+      ! ---------------------------------------
       IF( kt == nitend .OR. kindic < 0 )   CALL histclo( nid_T )
       !