Changeset 1288 for trunk

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

Location:

trunk/NEMO/TOP_SRC/PISCES

Files:

• sms_pisces.F90 (modified) (2 diffs)
• trclsm_pisces.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90

@@ -50 +50 @@
    REAL(wp), DIMENSION(jpi,jpj)     ::   heup    !: euphotic layer depth
 
-!!----------------------------------------------------------
-!!  Biological fluxes for primary production
-!!----------------------------------------------------------
+   !!----------------------------------------------------------
+   !!  Biological fluxes for primary production
+   !!----------------------------------------------------------
    REAL(wp), DIMENSION(jpi,jpj) :: xksi, xksimax
    !
@@ -61 +61 @@
    !!  SMS for the organic matter
    !!---------------------------------------------
-   !
    REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xfracal, nitrfac, xlimbac, xdiss                  !: ??
+
+   !!---------------------------------------------
+   !! Damping 
+   !!---------------------------------------------
+   LOGICAL  :: ln_pisdmp
 
 #if defined key_kriest

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