Changeset 608

Timestamp:

2007-02-20T18:27:32+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_014:RB: Correction of initialization of time splitting for j-k-i free surface

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_ts_jki.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_ts_jki.F90

@@ -390 +390 @@
             ! Time filter and swap of dynamics arrays
             ! ---------------------------------------
-            IF( neuler == 0 .AND. kt == nit000 ) THEN   ! Euler (forward) time stepping
+            IF( neuler == 0 .AND. jit == 1 ) THEN       ! Euler (forward) time stepping
                zsshb_e(:,jj) = sshn_e(:,jj)
                zub_e  (:,jj) = zun_e (:,jj)