Changeset 3192 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

Timestamp:

2011-12-05T14:55:12+01:00 (12 years ago)

Author:

cetlod

Message:

Perform the initialisation phase of PISCES at nit000 rather than nittrc000

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

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