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

trunk/NEMO/OPA_SRC/DYN/dynspg.F90

@@ -158 +158 @@
       ! Control of timestep choice
       ! --------------------------
-      IF( lk_dynspg_ts ) THEN
-         IF( MOD( rdt , rdtbt ) /= 0. )   &
-           &   CALL ctl_stop( ' The barotropic timestep must be an integer divisor of the baroclinic timestep' )
+      IF( lk_dynspg_ts .OR. lk_dynspg_exp ) THEN
+         IF( n_cla == 1 )   &
+           &   CALL ctl_stop( ' Crossland advection not implemented for this free surface formulation ' )
       ENDIF