Changeset 1318


Ignore:
Timestamp:
2009-02-17T17:38:18+01:00 (12 years ago)
Author:
smasson
Message:

supress useless call to histsync, see ticket:340

Location:
trunk/NEMO
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/C1D_SRC/diawri_c1d.F90

    r1317 r1318  
    343343      ENDIF 
    344344 
    345       ! 3. Synchronise and close all files 
    346       ! --------------------------------------- 
    347       IF( MOD( it, nwrite ) == 0 .OR. kindic < 0 )   CALL histsync( nid_T ) 
    348  
    349345      !  Create an output files (output.abort.nc) if S < 0 or u > 20 m/s 
    350346      IF( kindic < 0 )   CALL dia_wri_state( 'output.abort' ) 
    351347 
     348      ! 3. Close all files 
     349      ! --------------------------------------- 
    352350      IF( kt == nitend .OR. kindic < 0 )   CALL histclo( nid_T ) 
    353351      ! 
  • trunk/NEMO/OPA_SRC/DIA/diawri.F90

    r1317 r1318  
    511511#endif 
    512512 
    513       ! 3. Synchronise and close all files 
    514       ! --------------------------------------- 
    515       IF( MOD( it, nwrite ) == 0 .OR. kindic < 0 ) THEN 
    516          CALL histsync( nid_T ) 
    517          CALL histsync( nid_U ) 
    518          CALL histsync( nid_V ) 
    519          CALL histsync( nid_W ) 
    520       ENDIF 
    521  
    522513      !  Create an output files (output.abort.nc) if S < 0 or u > 20 m/s 
    523514      IF( kindic < 0 )   CALL dia_wri_state( 'output.abort' ) 
    524515 
     516      ! 3. Close all files 
     517      ! --------------------------------------- 
    525518      IF( kt == nitend .OR. kindic < 0 ) THEN 
    526519         CALL histclo( nid_T ) 
  • trunk/NEMO/TOP_SRC/SED/sedwri.F90

    r1317 r1318  
    247247          END DO 
    248248 
    249  
    250          !! 
    251          !! synchronise FILE 
    252          ! 
    253          IF( MOD( it, nwrised ) == 0 ) THEN 
    254               WRITE(numsed,*)  '**** sedwri : write NetCDF aditional arrays' 
    255               CALL histsync( nised ) 
    256           ENDIF 
    257  
    258249      ENDIF 
    259250 
  • trunk/NEMO/TOP_SRC/trcdia.F90

    r1317 r1318  
    213213      END DO 
    214214 
    215       ! synchronise file 
    216       IF( MOD( it, nwritetrc ) == 0 .OR. kindic < 0 )   CALL histsync( nit5 ) 
    217  
    218  
    219215      ! close the file  
    220216      ! -------------- 
     
    445441      END DO 
    446442 
    447       ! synchronise FILE 
    448       IF( MOD( it, nwritetrd ) == 0 .OR. kindic < 0 ) THEN 
    449          DO jn = 1, jptra 
    450             IF (luttrd(jn))   CALL histsync( nit6(jn) ) 
    451          END DO 
    452       ENDIF 
    453  
    454443      ! Closing all files 
    455444      ! ----------------- 
     
    604593         CALL histwrite(nitd, cltra, it, trc2d(:,:,jn), ndimt51  ,ndext51) 
    605594      END DO 
    606  
    607       ! synchronise FILE 
    608       IF( MOD( it, nwritedia ) == 0 .OR. kindic < 0 )   CALL histsync( nitd ) 
    609595 
    610596      ! Closing all files 
     
    734720      END DO 
    735721 
    736       ! synchronise FILE 
    737       IF( MOD( it, nwritebio ) == 0 .OR. kindic < 0 )   CALL histsync( nitb ) 
    738  
    739722      ! Closing all files 
    740723      ! ----------------- 
Note: See TracChangeset for help on using the changeset viewer.