From 020633dae86e5d128dcb0d8f159d8bb11ba8058c Mon Sep 17 00:00:00 2001 From: Michael Toy Date: Mon, 27 May 2024 05:11:22 +0000 Subject: [PATCH] Bug fix in ugwpv1_gsldrag.F90 --- physics/GWD/ugwpv1_gsldrag.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/physics/GWD/ugwpv1_gsldrag.F90 b/physics/GWD/ugwpv1_gsldrag.F90 index 4e2e617c7..2231c74f2 100644 --- a/physics/GWD/ugwpv1_gsldrag.F90 +++ b/physics/GWD/ugwpv1_gsldrag.F90 @@ -559,6 +559,7 @@ subroutine ugwpv1_gsldrag_run(me, master, im, levs, ak, bk, ntrac, lonr, dtp, con_fv, con_pi, lonr, & cdmbgwd(1:2),alpha_fd,me,master, & lprnt,ipr,rdxzb,dx,gwd_opt, & + do_gsl_drag_ls_bl,do_gsl_drag_ss,do_gsl_drag_tofd, & dtend, dtidx, index_of_process_orographic_gwd, & index_of_temperature, index_of_x_wind, & index_of_y_wind, ldiag3d, ldiag_ugwp, &