[Dart-dev] [7984] DART/trunk/models/POP/model_mod.f90: Bug fix: Logicals must be compared with .eqv.

[nancy at ucar.edu]

Revision: 7984
Author:   hkershaw
Date:     2015-05-14 16:10:54 -0600 (Thu, 14 May 2015)
Log Message:
-----------
Bug fix: Logicals must be compared with .eqv. instead of ==.  Removed .true. since the function returns true or false.

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-14 21:35:21 UTC (rev 7983)
+++ DART/trunk/models/POP/model_mod.f90	2015-05-14 22:10:54 UTC (rev 7984)
@@ -430,7 +430,7 @@
    do j = 1, ny - 1
       
       ! Only update regular boxes that contain all wet corners
-      if( all_corners_wet(KIND_U_CURRENT_COMPONENT,i,j,surf_index) == .true. ) then
+      if( all_corners_wet(KIND_U_CURRENT_COMPONENT,i,j,surf_index) ) then
          ! Set up array of lons and lats for the corners of these u quads
          call get_quad_corners(ulon, i, j, u_c_lons)
          call get_quad_corners(ulat, i, j, u_c_lats)
@@ -445,7 +445,7 @@
 
       ! Repeat for t dipole quads.
       ! Only update regular boxes that contain all wet corners
-      if( all_corners_wet(KIND_TEMPERATURE,i,j,surf_index) == .true. ) then
+      if( all_corners_wet(KIND_TEMPERATURE,i,j,surf_index) ) then
          ! Set up array of lons and lats for the corners of these t quads
          call get_quad_corners(tlon, i, j, t_c_lons)
          call get_quad_corners(tlat, i, j, t_c_lats)