Skip to content

Commit 1b720c9

Browse files
committed
fix loop bounds for ten_q in cu_gf_driver.F90
1 parent 7537db1 commit 1b720c9

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

physics/CONV/Grell_Freitas/cu_gf_driver.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1069,8 +1069,8 @@ subroutine cu_gf_driver_run(ntracer,garea,im,km,dt,flag_init,flag_restart, gf_co
10691069
new_qv_spechum = qv/(1.0_kind_phys+qv)
10701070
cnvw_moist = cnvw/(1.0_kind_phys+qv)
10711071
!$acc end kernels
1072-
do i=its,itf
1073-
do k=kts,kstop
1072+
do i=its,ite
1073+
do k=kts,kte
10741074
ten_q(i,k,ntqv) = (new_qv_spechum(i,k) - qv_spechum(i,k))/dt
10751075
end do
10761076
end do

0 commit comments

Comments
 (0)