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

trunk/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -301 +301 @@
          z_arg = kt * rdt * rad / 3600.0
       ELSE                              ! we are in a barotropic subcycle (for timesplitting option)
-         z_arg = ( (kt-1) * rdt + jit * rdtbt ) * rad / 3600.0
+         z_arg = ( (kt-1) * rdt + jit * rdt / REAL(nn_baro,lwp) ) * rad / 3600.0
       ENDIF