Skip to content

Commit cd775f3

Browse files
committed
Merge remote-tracking branch 'lo-y-wni/bug_fix' into hotfix-v8.2.3 (PR #1283)
This merge corrects an indexing error for rvcuten in code blocks specific to the Grell-Freitas scheme in the convection driver. Specifically, in the convection_from_MPAS and convection_to_MPAS routines, rvcuten used (k,k) as indexing in a loop, where (k,i) is needed. Since the Grell-Freitas scheme does not provide momentum tendencies, the changes in this merge have no impact on results. * lo-y-wni/bug_fix: 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
2 parents 1858b7d + 64cd12a commit cd775f3

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)