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

Timestamp:

2009-02-17T17:31:42+01:00 (15 years ago)

Author:

smasson

Message:

nwrite = modulo referenced to nit000 in all ouputs, see ticket:339

File:

• trunk/NEMO/C1D_SRC/diawri_c1d.F90 (modified) (2 diffs)

trunk/NEMO/C1D_SRC/diawri_c1d.F90

@@ -276 +276 @@
       ! donne le nombre d'elements, et ndex la liste des indices a sortir
 
-      IF( lwp .AND. MOD( kt, nwrite ) == 0 ) THEN 
+      IF( lwp .AND. MOD( it, nwrite ) == 0 ) THEN 
          WRITE(numout,*) 'dia_wri : write model outputs in NetCDF files at ', kt, 'time-step'
          WRITE(numout,*) '~~~~~~ '
@@ -345 +345 @@
       ! 3. Synchronise and close all files
       ! ---------------------------------------
-      IF( MOD( kt, nwrite ) == 0 .OR. kindic < 0 )   CALL histsync( nid_T )
+      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