Skip to content
Permalink
Browse files

Fix incorrect array bounds reference inn PSRAD_lrtm_codereview

  • Loading branch information...
gklimowicz committed Apr 18, 2019
1 parent 6306bb6 commit e6146bd44d8cc38964beb4c71ec2622340174cec
Showing with 1 addition and 1 deletion.
  1. +1 −1 test/ncar_kernels/PSRAD_lrtm_codereview/src/mo_taumol03.f90
@@ -277,7 +277,7 @@ SUBROUTINE taumol03_lwr(ncol, startCol, laytrop, nlayers, &
specparm_mn2o(icol) = colh2o(icol,lay)/speccomb_mn2o(icol)
END DO

do icol=1,ncol ! vectorizes as is 14.0.2
do icol=startCol,ncol ! vectorizes as is 14.0.2
IF (specparm_mn2o(icol) .GE. oneminus) specparm_mn2o(icol) =oneminus
end do

0 comments on commit e6146bd

Please sign in to comment.
You can’t perform that action at this time.