Changeset 1256 for trunk/NEMO/TOP_SRC/TRP/trctrp.F90

Timestamp:

2009-01-13T11:32:36+01:00 (15 years ago)

Author:

cetlod

Message:

Add a namelist parameter to use or not the trcrad routine, see ticket:300

File:

• trunk/NEMO/TOP_SRC/TRP/trctrp.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trctrp.F90

@@ -13 +13 @@
    !!----------------------------------------------------------------------
    USE oce_trc         ! ocean dynamics and active tracers variables
-   USE trp_trc             ! ocean passive tracers variables 
+   USE trp_trc         ! ocean passive tracers variables 
    USE trctrp_lec      ! passive tracers transport parameters
-   USE prtctl_trc     ! Print control for debbuging
+   USE prtctl_trc      ! Print control for debbuging
 
    USE trcbbl          ! bottom boundary layer               (trc_bbl routine)
@@ -112 +112 @@
 
                                CALL trc_nxt( kt )            ! tracer fields at next time step
- 
-                               CALL trc_rad( kt )            ! Correct artificial negative concentrations
+     
+      IF( ln_trcrad )          CALL trc_rad( kt )            ! Correct artificial negative concentrations
       !                                                      ! especially useful when isopycnal mixing is used
       !