[Dart-dev] [7984] DART/trunk/models/POP/model_mod.f90: Bug fix: Logicals must be compared with .eqv.
nancy at ucar.edu
nancy at ucar.edu
Thu May 14 16:10:54 MDT 2015
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)
More information about the Dart-dev
mailing list