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

trunk/NEMO/TOP_SRC/trcdia.F90

@@ -201 +201 @@
       ! ---------------------------------------
 
-      IF( lwp .AND. MOD( kt, nwritetrc ) == 0 ) THEN
+      IF( lwp .AND. MOD( it, nwritetrc ) == 0 ) THEN
          WRITE(numout,*) 'trcdit_wr : write NetCDF passive tracer concentrations at ', kt, 'time-step'
          WRITE(numout,*) '~~~~~~~~~ '
@@ -214 +214 @@
 
       ! synchronise file
-      IF( MOD( kt, nwritetrc ) == 0 .OR. kindic < 0 )   CALL histsync( nit5 )
+      IF( MOD( it, nwritetrc ) == 0 .OR. kindic < 0 )   CALL histsync( nit5 )
 
 
@@ -415 +415 @@
       ! trends for tracer concentrations
 
-      IF( lwp .AND. MOD( kt, nwritetrd ) == 0 ) THEN
+      IF( lwp .AND. MOD( it, nwritetrd ) == 0 ) THEN
          WRITE(numout,*) 'trcdid_wr : write NetCDF dynamical trends at ', kt, 'time-step'
          WRITE(numout,*) '~~~~~~ '
@@ -446 +446 @@
 
       ! synchronise FILE
-      IF( MOD( kt, nwritetrd ) == 0 .OR. kindic < 0 ) THEN
+      IF( MOD( it, nwritetrd ) == 0 .OR. kindic < 0 ) THEN
          DO jn = 1, jptra
             IF (luttrd(jn))   CALL histsync( nit6(jn) )
@@ -588 +588 @@
       ! ---------------------
 
-      IF( lwp .AND. MOD( kt, nwritedia ) == 0 ) THEN
+      IF( lwp .AND. MOD( it, nwritedia ) == 0 ) THEN
          WRITE(numout,*) 'trcdii_wr : write NetCDF additional arrays at ', kt, 'time-step'
          WRITE(numout,*) '~~~~~~ '
@@ -606 +606 @@
 
       ! synchronise FILE
-      IF( MOD( kt, nwritedia ) == 0 .OR. kindic < 0 )   CALL histsync( nitd )
+      IF( MOD( it, nwritedia ) == 0 .OR. kindic < 0 )   CALL histsync( nitd )
 
       ! Closing all files
@@ -724 +724 @@
 
       ! biological trends
-      IF( lwp .AND. MOD( kt, nwritebio ) == 0 ) THEN
+      IF( lwp .AND. MOD( it, nwritebio ) == 0 ) THEN
          WRITE(numout,*) 'trcdit_wr : write NetCDF biological trends at ', kt, 'time-step'
          WRITE(numout,*) '~~~~~~ '
@@ -735 +735 @@
 
       ! synchronise FILE
-      IF( MOD( kt, nwritebio ) == 0 .OR. kindic < 0 )   CALL histsync( nitb )
+      IF( MOD( it, nwritebio ) == 0 .OR. kindic < 0 )   CALL histsync( nitb )
 
       ! Closing all files