Changeset 1288


Ignore:
Timestamp:
2009-02-03T15:08:53+01:00 (12 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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90

    r1264 r1288  
    5050   REAL(wp), DIMENSION(jpi,jpj)     ::   heup    !: euphotic layer depth 
    5151 
    52 !!---------------------------------------------------------- 
    53 !!  Biological fluxes for primary production 
    54 !!---------------------------------------------------------- 
     52   !!---------------------------------------------------------- 
     53   !!  Biological fluxes for primary production 
     54   !!---------------------------------------------------------- 
    5555   REAL(wp), DIMENSION(jpi,jpj) :: xksi, xksimax 
    5656   ! 
     
    6161   !!  SMS for the organic matter 
    6262   !!--------------------------------------------- 
    63    ! 
    6463   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xfracal, nitrfac, xlimbac, xdiss                  !: ?? 
     64 
     65   !!--------------------------------------------- 
     66   !! Damping  
     67   !!--------------------------------------------- 
     68   LOGICAL  :: ln_pisdmp 
    6569 
    6670#if defined key_kriest 
  • trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

    r1255 r1288  
    6262      NAMELIST/nampisbio/ part, nrdttrc, wsbio, xkmort, ferat3, wsbio2 
    6363#if defined key_kriest 
    64       NAMELIST/nampiskrp/xkr_eta, xkr_zeta, xkr_mass_min, xkr_mass_max 
     64      NAMELIST/nampiskrp/ xkr_eta, xkr_zeta, xkr_mass_min, xkr_mass_max 
    6565#endif 
    6666#if defined key_trc_diaadd 
    67       NAMELIST/nampisdia/nwritedia, pisdia3d, pisdia2d     ! additional diagnostics 
    68 #endif 
     67      NAMELIST/nampisdia/ nwritedia, pisdia3d, pisdia2d     ! additional diagnostics 
     68#endif 
     69      NAMELIST/nampisdmp/ ln_pisdmp 
    6970 
    7071      !!---------------------------------------------------------------------- 
     
    182183#endif 
    183184 
     185      REWIND( numnat ) 
     186      READ  ( numnat, nampisdmp ) 
     187 
     188      IF(lwp) THEN                         ! control print 
     189         WRITE(numout,*) 
     190         WRITE(numout,*) ' Namelist : nampisdmp' 
     191         WRITE(numout,*) '    Relaxation of tracer to glodap mean value    ln_pisdmp      =', ln_pisdmp 
     192         WRITE(numout,*) ' ' 
     193      ENDIF 
     194 
    184195   END SUBROUTINE trc_lsm_pisces 
    185196 
Note: See TracChangeset for help on using the changeset viewer.