Changeset 2649 for branches

Timestamp:

2011-03-03T19:45:36+01:00 (13 years ago)

Author:

cetlod

Message:

small bug correction

Location:

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC

Files:

• trcdta.F90 (modified) (1 diff)
• trcini.F90 (modified) (2 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

@@ -206 +206 @@
       ALLOCATE(trdta(jpi,jpj,jpk,jptra),                   &
                tracdta(jpi,jpj,jpk,jptra,2),               &
-               nlectr(jptra), ntrc1(jptra), ntrc2,(jptra), & 
+               nlectr(jptra), ntrc1(jptra), ntrc2(jptra),  & 
                !
                STAT=trc_dta_alloc)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -87 +87 @@
          IF(lwp) WRITE(numout,*) ' '
       ELSE
-         IF(lwp) WRITE(numout,*)
-         DO jn = 1, jptra
-            IF( lwp .AND. lutini(jn) )  &                  ! open input FILE only IF lutini(jn) is true
-            &  WRITE(numout,*) '        read an initial file  for passive tracer number :', jn, ' traceur : ', ctrcnm(jn) 
-         END DO
+         IF( lwp .AND. lk_dtatrc ) THEN
+            DO jn = 1, jptra
+               IF( lutini(jn) )  &                  ! open input FILE only IF lutini(jn) is true
+                  &  WRITE(numout,*) ' read an initial file for passive tracer number :', jn, ' traceur : ', ctrcnm(jn) 
+             END DO
+          ENDIF
+          IF( lwp ) WRITE(numout,*)
       ENDIF
 
@@ -143 +145 @@
       
       IF( ln_zps .AND. .NOT. lk_c1d )   &              ! Partial steps: before horizontal gradient of passive
-         CALL zps_hde( nit000, jptra, trn, gtru, gtrv )       ! tracers at the bottom ocean level
+        &    CALL zps_hde( nit000, jptra, trn, gtru, gtrv )       ! tracers at the bottom ocean level