Changeset 345 for trunk/NEMO/TOP_SRC

Timestamp:

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

Author:

opalod

Message:

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

add control print at tracers initialization

File:

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

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