Changeset 4359 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2014-01-22T09:21:12+01:00 (11 years ago)
- 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 312 312 END SELECT 313 313 314 IF( lzoom ) nn_zdmp_tr = 0 ! restoring to climatology at closed north or south boundaries 314 315 SELECT CASE ( nn_zdmp_tr ) 315 316 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 13 13 !! trc_nam_trp : read the passive tracer namelist for transport 14 14 !!---------------------------------------------------------------------- 15 USE oce_trc ! shared ocean passive tracers variables16 15 USE trc ! passive tracers variables 17 16 USE in_out_manager ! ocean dynamics and active tracers variables … … 180 179 WRITE ( numont, namtrc_dmp ) 181 180 182 IF( lzoom ) nn_zdmp_tr = 0 ! restoring to climatology at closed north or south boundaries183 184 181 IF(lwp) THEN ! Namelist print 185 182 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.