Skip to content

Commit a8abf69

Browse files
committed
fix 2 minor compilation issues after testing with UFS RTs
1 parent baa7823 commit a8abf69

2 files changed

Lines changed: 6 additions & 4 deletions

File tree

physics/CONV/C3/cu_c3_driver.F90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1093,10 +1093,10 @@ subroutine cu_c3_driver_run(ntracer,garea,im,km,dt,flag_init,flag_restart,&
10931093
cnvw_moist = cnvw/(1.0_kind_phys+qv)
10941094
!$acc end kernels
10951095
do i=its,itf
1096-
+ do k=kts,kstop
1097-
+ ten_q(i,k,ntqv) = (new_qv_spechum(i,k) - qv_spechum(i,k))/dt
1098-
+ end do
1099-
+ end do
1096+
do k=kts,kstop
1097+
ten_q(i,k,ntqv) = (new_qv_spechum(i,k) - qv_spechum(i,k))/dt
1098+
end do
1099+
end do
11001100
!
11011101
! Diagnostic tendency updates
11021102
!

physics/CONV/RAS/rascnv.F90

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -340,6 +340,8 @@ subroutine rascnv_run(IM, k, itc, ntc, ntr, dt, dtf &
340340
&, cnv_fice, cnv_ndrop &
341341
&, cnv_nice, cf_upi
342342
real(kind=kind_phys), dimension(:) , intent(in) :: area, cdrag
343+
real(kind=kind_phys), dimension(:,:), intent(out) :: ten_t, ten_u, ten_v
344+
real(kind=kind_phys), dimension(:,:,:), intent(out) :: ten_q, ten_cc
343345
real(kind=kind_phys), dimension(:) , intent(out) :: rainc
344346
real(kind=kind_phys), dimension(:) , intent(out) :: ddvel
345347
real(kind=kind_phys), dimension(:,:), intent(in) :: rannum

0 commit comments

Comments
 (0)