Changeset 1801 for trunk/NEMO/TOP_SRC/PISCES

Timestamp:

2010-01-22T10:36:07+01:00 (14 years ago)

Author:

cetlod

Message:

Reorganisation of restart part of TOP component, see ticket:644

Location:

trunk/NEMO/TOP_SRC/PISCES

Files:

• sms_pisces.F90 (modified) (1 diff)
• trclsm_pisces.F90 (modified) (2 diffs)
• trcrst_pisces.F90 (added)

trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90

@@ -38 +38 @@
    LOGICAL  ::   ln_pisdmp         !: relaxation or not of nutrients to a mean value
                                    !: when initialize from a restart file 
+   LOGICAL  ::   ln_pisclo         !: Restoring or not of nutrients to initial value
+                                   !: on close seas
 
    !!*  Biological fluxes for light

trunk/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

@@ -67 +67 @@
       NAMELIST/nampisdia/ nwritedia, pisdia3d, pisdia2d     ! additional diagnostics
 #endif
-      NAMELIST/nampisdmp/ ln_pisdmp
+      NAMELIST/nampisdmp/ ln_pisdmp, ln_pisclo
 
       !!----------------------------------------------------------------------
@@ -188 +188 @@
          WRITE(numout,*)
          WRITE(numout,*) ' Namelist : nampisdmp'
-         WRITE(numout,*) '    Relaxation of tracer to glodap mean value    ln_pisdmp      =', ln_pisdmp
+         WRITE(numout,*) '    Relaxation of tracer to glodap mean value            ln_pisdmp      =', ln_pisdmp
+         WRITE(numout,*) '    Restoring of tracer to initial value  on closed seas  ln_pisclo      =', ln_pisclo
          WRITE(numout,*) ' '
       ENDIF