Changeset 4359 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

Timestamp:

2014-01-22T09:21:12+01:00 (10 years ago)

Author:

cetlod

Message:

bugfix to allow compilation with key_trdmld_trc activated, see ticket #1221

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

@@ -13 +13 @@
    !!   trc_nam_trp  : read the passive tracer namelist for transport
    !!----------------------------------------------------------------------
-   USE oce_trc              ! shared ocean passive tracers variables
    USE trc                 ! passive tracers variables
    USE in_out_manager      ! ocean dynamics and active tracers variables
@@ -180 +179 @@
       WRITE ( numont, namtrc_dmp )
 
-      IF( lzoom )   nn_zdmp_tr = 0           ! restoring to climatology at closed north or south boundaries
-
       IF(lwp) THEN                       ! Namelist print
          WRITE(numout,*)