Changeset 3124 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcdia.F90

Timestamp:

2011-11-16T10:25:18+01:00 (12 years ago)

Author:

cetlod

Message:

dev_NEMO_MERGE_2011/NEMOGCM:minor modifications on the use of nittrc000 + style corrections

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcdia.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcdia.F90

@@ -71 +71 @@
       !!---------------------------------------------------------------------
       !
-      IF( kt == nit000 )  THEN
+      IF( kt == nittrc000 )  THEN
          ALLOCATE( ndext50(jpij*jpk), ndext51(jpij), STAT=ierr )
          IF( ierr > 0 ) THEN
@@ -145 +145 @@
       itmod = kt - nittrc000 + 1
       it    = kt
-      iiter = ( nit000 - 1 ) / nn_dttrc
+      iiter = ( nittrc000 - 1 ) / nn_dttrc
 
       ! Define NETCDF files and fields at beginning of first time step
@@ -292 +292 @@
       itmod = kt - nittrc000 + 1
       it    = kt
-      iiter = ( nit000 - 1 ) / nn_dttrc
+      iiter = ( nittrc000 - 1 ) / nn_dttrc
 
       ! 1. Define NETCDF files and fields at beginning of first time step
@@ -433 +433 @@
       itmod = kt - nittrc000 + 1
       it    = kt
-      iiter = ( nit000 - 1 ) / nn_dttrc
+      iiter = ( nittrc000 - 1 ) / nn_dttrc
 
       ! Define NETCDF files and fields at beginning of first time step