Changeset 1250 for trunk/NEMO/TOP_SRC/SED/par_sed.F90

Timestamp:

2009-01-13T10:41:45+01:00 (16 years ago)

Author:

cetlod

Message:

update modules of sediment model to take into account minor modifications, see ticket:297

File:

• trunk/NEMO/TOP_SRC/SED/par_sed.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/SED/par_sed.F90

@@ -19 +19 @@
 #if ! defined key_sed_off
    USE par_pisces
+#endif
+
 #if defined key_kriest
    INTEGER, PARAMETER :: jpdta = 11
@@ -24 +26 @@
    INTEGER, PARAMETER :: jpdta = 12
 #endif
-#endif
+
 
    ! Vertical sediment geometry
@@ -56 +58 @@
 
    INTEGER, PARAMETER ::  &
-      jptrased = 14 , &
-      jpflxsed = 7
+      jptrased   = jpsol + jpwat , &
+      jpdia3dsed = 3          , &
+      jpdia2dsed = 7
 #endif
 END MODULE par_sed