Changeset 3124 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcdta.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/trcdta.F90 (modified) (2 diffs)

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

@@ -177 +177 @@
          IF( ln_sco ) THEN                   !==   s- or mixed s-zps-coordinate   ==!
             !
-            IF( kt == nit000 .AND. lwp )THEN
+            IF( kt == nittrc000 .AND. lwp )THEN
                WRITE(numout,*)
                WRITE(numout,*) 'trc_dta: interpolates passive tracer data onto the s- or mixed s-z-coordinate mesh'
@@ -232 +232 @@
          ENDDO 
          !
-         IF( lwp .AND. kt == nit000 ) THEN
+         IF( lwp .AND. kt == nittrc000 ) THEN
             DO jn = 1, ntra
                clndta = TRIM( sf_trcdta(jn)%clvar )