Skip to content

Commit 64cd12a

Browse files
committed
There is index error in variable rvcuten whose index is set to (k,k) in loops. But it should be (k,i) because similar variable rucuten has the index (k,i). The bug fixed is at Grell-Freitas parameterization block but since it does not provide momentum tendencies, there is no change to simulation results
1 parent 41e9a3f commit 64cd12a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/core_atmosphere/physics/mpas_atmphys_driver_convection.F

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -744,7 +744,7 @@ subroutine convection_from_MPAS(dt_dyn,configs,mesh,sfc_input,diag_physics,tend_
744744
rqvblten_p(i,k,j) = rqvblten(k,i)
745745
rqvdynten_p(i,k,j) = rqvdynten(k,i)
746746
rucuten_p(i,k,j) = rucuten(k,i)
747-
rvcuten_p(i,k,j) = rvcuten(k,k)
747+
rvcuten_p(i,k,j) = rvcuten(k,i)
748748
enddo
749749
enddo
750750
enddo
@@ -941,7 +941,7 @@ subroutine convection_to_MPAS(configs,diag_physics,tend_physics,its,ite)
941941
qc_cu(k,i) = qccu_p(i,k,j)
942942
qi_cu(k,i) = qicu_p(i,k,j)
943943
rucuten(k,i) = rucuten_p(i,k,j)
944-
rvcuten(k,k) = rvcuten_p(i,k,j)
944+
rvcuten(k,i) = rvcuten_p(i,k,j)
945945
enddo
946946
enddo
947947
enddo

0 commit comments

Comments
 (0)