Skip to content

Commit 578f2af

Browse files
committed
Merge branch 'MPAS-v8.0/ccpp_gwdo_revised' into develop (PR #1078)
This merge corrects a bug in the call to the subroutine gwdo in mpas_atmphys_driver_gwdo.F. Previously, the variable z was erroneously defined as the height at the interface between layers, or z = z_p where z_p is equal to zgrid. Now, the variable z is defined as the height defined at the middle of layers, or z = zmid_p, as needed by subroutine gwdo.
2 parents b41850f + 656701b commit 578f2af

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/core_atmosphere/physics/mpas_atmphys_driver_gwdo.F

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -311,7 +311,7 @@ subroutine driver_gwdo(itimestep,configs,mesh,sfc_input,diag_physics,tend_physic
311311
call gwdo ( &
312312
p3d = pres_hydd_p , p3di = pres2_hydd_p , pi3d = pi_p , &
313313
u3d = u_p , v3d = v_p , t3d = t_p , &
314-
qv3d = qv_p , z = z_p , rublten = rublten_p , &
314+
qv3d = qv_p , z = zmid_p , rublten = rublten_p , &
315315
rvblten = rvblten_p , dtaux3d = dtaux3d_p , dtauy3d = dtauy3d_p , &
316316
dusfcg = dusfcg_p , dvsfcg = dvsfcg_p , kpbl2d = kpbl_p , &
317317
itimestep = itimestep , dt = dt_pbl , dx = dx_p , &

0 commit comments

Comments
 (0)