Changeset 4359


Ignore:
Timestamp:
2014-01-22T09:21:12+01:00 (7 years ago)
Author:
cetlod
Message:

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

Location:
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/TRP
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r4230 r4359  
    312312      END SELECT 
    313313 
     314      IF( lzoom )   nn_zdmp_tr = 0           ! restoring to climatology at closed north or south boundaries 
    314315      SELECT CASE ( nn_zdmp_tr ) 
    315316      CASE ( 0 )   ;   IF(lwp) WRITE(numout,*) '   tracer damping throughout the water column' 
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r4148 r4359  
    1313   !!   trc_nam_trp  : read the passive tracer namelist for transport 
    1414   !!---------------------------------------------------------------------- 
    15    USE oce_trc              ! shared ocean passive tracers variables 
    1615   USE trc                 ! passive tracers variables 
    1716   USE in_out_manager      ! ocean dynamics and active tracers variables 
     
    180179      WRITE ( numont, namtrc_dmp ) 
    181180 
    182       IF( lzoom )   nn_zdmp_tr = 0           ! restoring to climatology at closed north or south boundaries 
    183  
    184181      IF(lwp) THEN                       ! Namelist print 
    185182         WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.