Changeset 5110 for branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2015-03-02T15:14:37+01:00 (9 years ago)

Author:

hliu

Message:

Fix a bug in Wetting/Drying? pressure filter in dynspg_ts.F90

File:

• branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (1 diff)

branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -388 +388 @@
                 ELSE IF(ll_tmp2) THEN
                    ! no worries about sshn(ji,jj+1)-sshn(ji,jj) = 0, it won't happen ! here
-                  zcpy(ji,jj) = ABS((sshn(ji,jj+1) + bathy(ji,jj+1) - sshn(ji,jj) + bathy(ji,jj)) /&
+                  zcpy(ji,jj) = ABS((sshn(ji,jj+1) + bathy(ji,jj+1) - sshn(ji,jj) - bathy(ji,jj)) /&
                               &     (sshn(ji,jj+1) - sshn(ji,jj)))
                 ELSE