Changeset 1241 for trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

Timestamp:

2009-01-05T17:14:49+01:00 (15 years ago)

Author:

rblod

Message:

Fix a stupid bug for time splitting and ensure restartability for dynspg_ts in addition, see tickets #280 and #292

File:

• trunk/NEMO/OPA_SRC/DOM/dom_oce.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

@@ -200 +200 @@
    !! time domain
    !!----------------------------------------------------------------------
-   INTEGER, PUBLIC ::    & !!: * Namelist * ???
-      nacc   = 0 ,       &  !: = 0/1 use of the acceleration of convergence technique
-      neuler                !: restart euler forward option (0=Euler)
-
+   INTEGER, PUBLIC ::      & !!: * Namelist * ???
+      nacc   = 0   ,       &  !: = 0/1 use of the acceleration of convergence technique
+      neuler       ,       &  !: restart euler forward option (0=Euler)
+      nn_baro = 64            !: number of barotropic time steps (key_dynspg_ts)
 
    REAL(wp), PUBLIC ::       & !!: * Namelist ??? *
@@ -210 +210 @@
       rdtmax = 3600._wp ,    &  !: maximum time step on tracers
       rdth   =  800._wp ,    &  !: depth variation of tracer step
-      rdtbt  =   90._wp ,    &  !: barotropic time step for the dynamics (lk_dynspg_ts=T)
       atfp   = 0.1_wp   ,    &  !: asselin time filter parameter
       atfp1                     !: asselin time filter coeff. (atfp1= 1-2*atfp)