Changeset 345 for trunk/NEMO

Timestamp:

2005-11-16T17:30:06+01:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_030:RB: small correction in step when calling passive tracers,

add control print at tracers initialization

Location:

trunk/NEMO

Files:

• OPA_SRC/step.F90 (modified) (1 diff)
• TOP_SRC/initrc.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/step.F90

@@ -280 +280 @@
       !-----------------------------------------------------------------------
 
-                             CALL trc_stp( kstp )           ! time-stepping
+                             CALL trc_stp( kstp, indic )            ! time-stepping
 
 #endif

trunk/NEMO/TOP_SRC/initrc.F90

@@ -24 +24 @@
    USE trcdtr
    USE trcini
+   USE prtctl_trc      ! Print control passive tracers (prt_ctl_trc_init routine)
    
    IMPLICIT NONE
@@ -52 +53 @@
       !!      original  : 91-03 ()
       !!      additions : 92-01 (C. Levy)
-      !!     05-03 (O. Aumont and A. El Moussaoui) F90
+      !!                  05-03 (O. Aumont and A. El Moussaoui) F90
+      !!                  05-10 (C. Ethe ) print control initialization 
       !!----------------------------------------------------------------------
 
@@ -97 +99 @@
       ENDIF
 
+      ! 5. Print control
+      !------------------
+
+      IF( ln_ctl )    CALL prt_ctl_trc_init
+
    END SUBROUTINE ini_trc