Changeset 6604 for branches/2016/dev_r6393_NOC_WAD

Timestamp:

2016-05-23T15:55:26+02:00 (8 years ago)

Author:

hliu

Message:

wet/dry in ssh_nxt

File:

• branches/2016/dev_r6393_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90 (modified) (2 diffs)

branches/2016/dev_r6393_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -88 +88 @@
       ENDIF
       !
+
+      IF(ln_wd) THEN
+        zcoef = 0.5_wp * r1_rau0
+        CALL wad_lmt(sshb, zcoef * (emp_b(:,:) + emp(:,:)), z2dt)
+      END IF
+
       CALL div_hor( kt )                              ! Horizontal divergence
       !
@@ -104 +110 @@
       ! compute the vertical velocity which can be used to compute the non-linear terms of the momentum equations.
       ! 
-      zcoef = 0.5_wp * r1_rau0
-
-      IF(ln_wd) CALL wad_lmt(sshb, zcoef * (emp_b(:,:) + emp(:,:)), z2dt)
-
       ssha(:,:) = (  sshb(:,:) - z2dt * ( zcoef * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) )  ) * ssmask(:,:)