Changeset 1317 for trunk/NEMO/OPA_SRC/TRD/trdvor.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/OPA_SRC/TRD/trdvor.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRD/trdvor.F90

@@ -405 +405 @@
       !  =============================================
 
-      IF( MOD( kt - nit000+1, ntrd ) == 0 ) THEN
+      ! define time axis
+      it= kt - nit000 + 1
+
+      IF( MOD( it, ntrd ) == 0 ) THEN
 
          ! III.1 compute total trend
@@ -452 +455 @@
       IF( kt >=  nit000+1 ) THEN
 
-         ! define time axis
-         it= kt-nit000+1
-         IF( lwp .AND. MOD( kt, ntrd ) == 0 ) THEN
+         IF( lwp .AND. MOD( it, ntrd ) == 0 ) THEN
             WRITE(numout,*) ''
             WRITE(numout,*) 'trd_vor : write trends in the NetCDF file at kt = ', kt
@@ -481 +482 @@
       ENDIF
       !
-      IF( MOD( kt - nit000+1, ntrd ) == 0 ) rotot(:,:)=0
+      IF( MOD( it, ntrd ) == 0 ) rotot(:,:)=0
       !
       IF( kt == nitend )   CALL histclo( nidvor )