Merge pull request #21 from climbfuji/gnu_bugfix_update_ca

update_ca.F90: bugfix for GNU compiler
NOAA-PSL · May 11, 2020 · 847aae1 · 847aae1
2 parents dfae403 + 012d41c
commit 847aae1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/update_ca.F90 b/update_ca.F90
@@ -225,7 +225,7 @@ subroutine update_cells_sgs(kstep,nca,nxc,nyc,nxch,nych,nlon,nlat,CA,ca_plumes,i
      incj=incj+ncells
   ENDDO
 
-if(nca_plumes == .true.) then
+if(nca_plumes) then
 !COMPUTE NUMBER OF CLUSTERS (CONVECTIVE PLUMES) IN EACH CA-CELL
 !Note, at the moment we only use the count of the plumes found in a grid-cell
 !In the future the routine "plumes" can also be used to give the size of