Changeset 1594 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2009-08-06T18:20:04+02:00 (15 years ago)

Author:

smasson

Message:

remove trcini and trcstp from OPA_SRC, see ticket:522

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -64 +64 @@
    USE dyncor_c1d      ! Coriolis factor at T-point
    USE step_c1d        ! Time stepping loop for the 1D configuration
+#if defined key_top
    USE trcini          ! passive tracer initialisation
+#endif
    
    USE iom
@@ -259 +261 @@
       CALL zdf_init                             ! Vertical ocean physics
 
+#if defined key_top
       CALL trc_ini                          ! Passive tracers
+#endif
 
       !                                     ! diagnostics