[cdftools] 19/228: JMM adjust set_below option in cdfbathy

[Alastair McKinstry]

This is an automated email from the git hooks/post-receive script.

mckinstry pushed a commit to branch master
in repository cdftools.

commit 6b2bf91f79d6ced7e0d05a48c6248a6ee39e6296
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Thu Mar 11 19:11:29 2010 +0000

    JMM adjust set_below option in cdfbathy
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@295 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfbathy.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cdfbathy.f90 b/cdfbathy.f90
index 95eaa29..ae482cd 100644
--- a/cdfbathy.f90
+++ b/cdfbathy.f90
@@ -323,7 +323,8 @@ CONTAINS
     ! * Fill subzone of the bathy file
     INTEGER,      INTENT(in) :: kimin, kimax, kjmin,kjmax
     REAL(KIND=4), INTENT(in) :: pdepmin
-   WHERE ( bathy(kimin:kimax, kjmin:kjmax) <= pdepmin)  bathy(kimin:kimax, kjmin:kjmax) = pdepmin
+   WHERE ( bathy(kimin:kimax, kjmin:kjmax) <= pdepmin .AND. bathy(kimin:kimax, kjmin:kjmax) > 0 ) &
+        &                 bathy(kimin:kimax, kjmin:kjmax) = pdepmin
   END SUBROUTINE set_below
 
   SUBROUTINE dumpzone(cdumpf,kimin,kimax,kjmin,kjmax)

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git