Changeset 1318 for trunk/NEMO/TOP_SRC/trcdia.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/TOP_SRC/trcdia.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/trcdia.F90

@@ -213 +213 @@
       END DO
 
-      ! synchronise file
-      IF( MOD( it, nwritetrc ) == 0 .OR. kindic < 0 )   CALL histsync( nit5 )
-
-
       ! close the file 
       ! --------------
@@ -445 +441 @@
       END DO
 
-      ! synchronise FILE
-      IF( MOD( it, nwritetrd ) == 0 .OR. kindic < 0 ) THEN
-         DO jn = 1, jptra
-            IF (luttrd(jn))   CALL histsync( nit6(jn) )
-         END DO
-      ENDIF
-
       ! Closing all files
       ! -----------------
@@ -604 +593 @@
          CALL histwrite(nitd, cltra, it, trc2d(:,:,jn), ndimt51  ,ndext51)
       END DO
-
-      ! synchronise FILE
-      IF( MOD( it, nwritedia ) == 0 .OR. kindic < 0 )   CALL histsync( nitd )
 
       ! Closing all files
@@ -734 +720 @@
       END DO
 
-      ! synchronise FILE
-      IF( MOD( it, nwritebio ) == 0 .OR. kindic < 0 )   CALL histsync( nitb )
-
       ! Closing all files
       ! -----------------