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

trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

@@ -575 +575 @@
       tmltrd_trc(:,:,:,:) = tmltrd_trc(:,:,:,:) * ucf_trc
 
-      MODULO_NTRD : IF( MOD( kt, ntrd_trc ) == 0 ) THEN           ! nitend MUST be multiple of ntrd_trc
+      it = kt - nit000 + 1
+
+      MODULO_NTRD : IF( MOD( it, ntrd_trc ) == 0 ) THEN           ! nitend MUST be multiple of ntrd_trc
          !
          ztmltot (:,:,:) = 0.e0                                   ! reset arrays to zero
@@ -817 +819 @@
       ! ----------------------------------
 
-      IF( lwp .AND. MOD( kt , ntrd_trc ) == 0 ) THEN
+      IF( lwp .AND. MOD( it , ntrd_trc ) == 0 ) THEN
          WRITE(numout,*) ' '
          WRITE(numout,*) 'trd_mld_trc : write passive tracer trends in the NetCDF file :'
@@ -826 +828 @@
       ENDIF
          
-      it = kt - nit000 + 1
-
       NETCDF_OUTPUT : IF( ln_trdmld_trc_instant ) THEN            ! <<< write the trends for passive tracer instant. diags
          !
@@ -930 +930 @@
 # endif /* key_dimgout */
 
-      IF( MOD( kt, ntrd_trc ) == 0 ) THEN
+      IF( MOD( it, ntrd_trc ) == 0 ) THEN
          !
          ! Reset cumulative arrays to zero
@@ -1131 +1131 @@
       ! ----------------------------------
 
-      IF( lwp .AND. MOD( kt , ntrd_trc ) == 0 ) THEN
+      ! define time axis
+      it = kt - nit000 + 1
+
+      IF( lwp .AND. MOD( it , ntrd_trc ) == 0 ) THEN
          WRITE(numout,*) ' '
          WRITE(numout,*) 'trd_mld_bio : write ML bio trends in the NetCDF file :'
@@ -1141 +1144 @@
 
 
-      ! define time axis
-      it = kt - nit000 + 1
-
-
       ! 2. Start writing data
       ! ---------------------
@@ -1175 +1174 @@
 # endif /* key_dimgout */
 
-      IF( MOD( kt, ntrd_trc ) == 0 ) THEN
+      IF( MOD( it, ntrd_trc ) == 0 ) THEN
          !
          ! III.5 Reset cumulative arrays to zero