Changeset 1241 for trunk/NEMO/OPA_SRC/OBC/obcdta.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/OBC/obcdta.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -986 +986 @@
 
     IF( lk_dynspg_ts ) THEN
-       isrel = (kt-1)*rdt + kbt*rdtbt
+       isrel = (kt-1)*rdt + kbt*(rdt/REAL(nn_baro,wp))
 
        IF( nobc_dta == 1 ) THEN
-          isrel = (kt-1)*rdt + kbt*rdtbt
+          isrel = (kt-1)*rdt + kbt*(rdt/REAL(nn_baro,wp))
           itimo  = FLOOR(  kt*rdt    / (tcobc(2)-tcobc(1)) )
           itimom = FLOOR( (kt-1)*rdt / (tcobc(2)-tcobc(1)) )