Changeset 1594

Timestamp:

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

Author:

smasson

Message:

remove trcini and trcstp from OPA_SRC, see ticket:522

Location:

trunk/NEMO/OPA_SRC

Files:

• opa.F90 (modified) (2 diffs)
• step.F90 (modified) (1 diff)
• trcini.F90 (deleted)
• trcstp.F90 (deleted)

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

trunk/NEMO/OPA_SRC/step.F90

@@ -44 +44 @@
    USE cpl_oasis3, ONLY : lk_cpl
 
+#if defined key_top
    USE trcstp          ! passive tracer time-stepping      (trc_stp routine)
+#endif
 
    USE traqsr          ! solar radiation penetration      (tra_qsr routine)