Skip to content

Commit 55e658d

Browse files
committed
fix indexing bug in cu_tiedtke caught in code review
1 parent 1307210 commit 55e658d

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

physics/CONV/nTiedtke/cu_ntiedtke.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -425,8 +425,8 @@ subroutine cu_ntiedtke_run(pu,pv,pt,pqv,ntqv,tdi,qvdi,pqvf,ptf,clw,poz,pzz,prsl,
425425
do k=1,km
426426
k1=km-k+1
427427
do j=1,lq
428-
ten_u(i,k) = pvom(j,k1)
429-
ten_v(i,k) = pvol(j,k1)
428+
ten_u(j,k) = pvom(j,k1)
429+
ten_v(j,k) = pvol(j,k1)
430430
end do
431431
end do
432432
endif

0 commit comments

Comments
 (0)