[Dart-dev] [7987] DART/trunk/models/POP/model_mod.f90: Bug fix: logic wrong in checking if all corners of a quad are wet.

[nancy at ucar.edu]

Revision: 7987
Author:   hkershaw
Date:     2015-05-15 15:01:35 -0600 (Fri, 15 May 2015)
Log Message:
-----------
Bug fix: logic wrong in checking if all corners of a quad are wet.  Removed .nots. Bitwise with revision 7662. 

Modified Paths:
--------------
    DART/trunk/models/POP/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/POP/model_mod.f90
===================================================================
--- DART/trunk/models/POP/model_mod.f90	2015-05-15 20:34:58 UTC (rev 7986)
+++ DART/trunk/models/POP/model_mod.f90	2015-05-15 21:01:35 UTC (rev 7987)
@@ -3002,10 +3002,10 @@
 lon_ind_p1 = lon_ind + 1
 if(lon_ind_p1 > nx) lon_ind_p1 = 1
 
-if (.not. is_dry_land(obs_kind, lon_ind,    lat_ind,   hgt_ind)) return
-if (.not. is_dry_land(obs_kind, lon_ind_p1, lat_ind,   hgt_ind)) return
-if (.not. is_dry_land(obs_kind, lon_ind_p1, lat_ind+1, hgt_ind)) return
-if (.not. is_dry_land(obs_kind, lon_ind,    lat_ind+1, hgt_ind)) return 
+if ( is_dry_land(obs_kind, lon_ind,    lat_ind,   hgt_ind)) return
+if ( is_dry_land(obs_kind, lon_ind_p1, lat_ind,   hgt_ind)) return
+if ( is_dry_land(obs_kind, lon_ind_p1, lat_ind+1, hgt_ind)) return
+if ( is_dry_land(obs_kind, lon_ind,    lat_ind+1, hgt_ind)) return
 
 all_corners_wet = .true.