Changeset 1288 for trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

Timestamp:

2009-02-03T15:08:53+01:00 (15 years ago)

Author:

cetlod

Message:

flag to allow or not damping of passive tracers in PISCEs model, see ticket:317

File:

• trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

@@ -62 +62 @@
       NAMELIST/nampisbio/ part, nrdttrc, wsbio, xkmort, ferat3, wsbio2
 #if defined key_kriest
-      NAMELIST/nampiskrp/xkr_eta, xkr_zeta, xkr_mass_min, xkr_mass_max
+      NAMELIST/nampiskrp/ xkr_eta, xkr_zeta, xkr_mass_min, xkr_mass_max
 #endif
 #if defined key_trc_diaadd
-      NAMELIST/nampisdia/nwritedia, pisdia3d, pisdia2d     ! additional diagnostics
-#endif
+      NAMELIST/nampisdia/ nwritedia, pisdia3d, pisdia2d     ! additional diagnostics
+#endif
+      NAMELIST/nampisdmp/ ln_pisdmp
 
       !!----------------------------------------------------------------------
@@ -182 +183 @@
 #endif
 
+      REWIND( numnat )
+      READ  ( numnat, nampisdmp )
+
+      IF(lwp) THEN                         ! control print
+         WRITE(numout,*)
+         WRITE(numout,*) ' Namelist : nampisdmp'
+         WRITE(numout,*) '    Relaxation of tracer to glodap mean value    ln_pisdmp      =', ln_pisdmp
+         WRITE(numout,*) ' '
+      ENDIF
+
    END SUBROUTINE trc_lsm_pisces