Changeset 261 for trunk/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2005-09-08T15:18:32+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_05:RB+OA:Update and rewritting of (part of) the TOP component

File:

• trunk/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -20 +20 @@
    PUBLIC trc_nxt          ! routine called by step.F90
    !!----------------------------------------------------------------------
-   !!   TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
+   !!   OPA 9.0 , LODYC-IPSL   (2003)
    !!----------------------------------------------------------------------
 
@@ -69 +67 @@
       !!----------------------------------------------------------------------
 
-      IF( kt == nittrc000 ) THEN
+      IF( kt == nittrc000 .AND. lwp ) THEN
          WRITE(numout,*)
          WRITE(numout,*) 'trc_nxt : time stepping on passive tracers'
@@ -139 +137 @@
          END DO                                           !   End of slab
          !                                                ! ===============
-         IF(l_ctl) THEN         ! print mean field (used for debugging)
-            ztra = SUM( trn(2:nictl,2:njctl,1:jpkm1,jn)*tmask(2:nictl,2:njctl,1:jpkm1) ) 
+         IF(ln_ctl) THEN         ! print mean field (used for debugging)
+            ztra = SUM( trn(2:nictle,2:njctle,1:jpkm1,jn)*tmask(2:nictle,2:njctle,1:jpkm1) ) 
             WRITE(numout,*) ' trc/nxt  - ',ctrcnm(jn),' : ', ztra
          ENDIF