Changeset 1288 for trunk/NEMO/TOP_SRC/PISCES/sms_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/sms_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