Changeset 1318 for trunk

Timestamp:

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

Author:

smasson

Message:

supress useless call to histsync, see ticket:340

Location:

trunk/NEMO

Files:

• C1D_SRC/diawri_c1d.F90 (modified) (1 diff)
• OPA_SRC/DIA/diawri.F90 (modified) (1 diff)
• TOP_SRC/SED/sedwri.F90 (modified) (1 diff)
• TOP_SRC/trcdia.F90 (modified) (4 diffs)

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 )
       !

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -511 +511 @@
 #endif
 
-      ! 3. Synchronise and close all files
-      ! ---------------------------------------
-      IF( MOD( it, nwrite ) == 0 .OR. kindic < 0 ) THEN
-         CALL histsync( nid_T )
-         CALL histsync( nid_U )
-         CALL histsync( nid_V )
-         CALL histsync( nid_W )
-      ENDIF
-
       !  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 ) THEN
          CALL histclo( nid_T )

trunk/NEMO/TOP_SRC/SED/sedwri.F90

@@ -247 +247 @@
           END DO
 
-
-         !!
-         !! synchronise FILE
-         !
-         IF( MOD( it, nwrised ) == 0 ) THEN
-              WRITE(numsed,*)  '**** sedwri : write NetCDF aditional arrays'
-              CALL histsync( nised )
-          ENDIF
-
       ENDIF
 

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
       ! -----------------