Changeset 2107 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/DYN/sshwzv.F90

Timestamp:

2010-09-21T14:30:20+02:00 (14 years ago)

Author:

mlelod

Message:

cosmetic changes again

File:

• branches/DEV_r1837_MLF/NEMO/OPA_SRC/DYN/sshwzv.F90 (modified) (1 diff)

branches/DEV_r1837_MLF/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -156 +156 @@
       ! In forward Euler time stepping case, the same formulation as in the leap-frog case can be used
       ! because emp_b field is initialized with the vlaues of emp field. Hence, 0.5 * ( emp + emp_b ) = emp
-      IF( neuler == 0 .AND. kt == nit000 ) THEN
-         z1_rau0 = 1.e0 / rau0
-         ssha(:,:) = (  sshb(:,:) - z2dt * ( z1_rau0 *   emp(:,:)                + zhdiv(:,:) )  ) * tmask(:,:,1)
-      ELSE
-         z1_rau0 = 0.5 / rau0
-         ssha(:,:) = (  sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) )  ) * tmask(:,:,1)
-      ENDIF
+      z1_rau0 = 0.5 / rau0
+      ssha(:,:) = (  sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) )  ) * tmask(:,:,1)
 
 #if defined key_obc