From 14d9df2e3ce76aeb4bb1795a119a6a49b01540d7 Mon Sep 17 00:00:00 2001 From: jatkinson1000 Date: Thu, 30 May 2024 09:00:16 -0600 Subject: [PATCH] MPI broadcast gw_convect_dp_ml switches from namelist. --- src/physics/cam/gw_drag.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/physics/cam/gw_drag.F90 b/src/physics/cam/gw_drag.F90 index d606f04dc4..b1360aac6a 100644 --- a/src/physics/cam/gw_drag.F90 +++ b/src/physics/cam/gw_drag.F90 @@ -341,6 +341,12 @@ subroutine gw_drag_readnl(nlfile) call mpi_bcast(front_gaussian_width, 1, mpi_real8, mstrid, mpicom, ierr) if (ierr /= 0) call endrun(sub//": FATAL: mpi_bcast: front_gaussian_width") + call mpi_bcast(gw_convect_dp_ml, 1, mpi_logical, mstrid, mpicom, ierr) + if (ierr /= 0) call endrun(sub//": FATAL: mpi_bcast: gw_convect_dp_ml") + + call mpi_bcast(gw_convect_dp_ml_compare, 1, mpi_logical, mstrid, mpicom, ierr) + if (ierr /= 0) call endrun(sub//": FATAL: mpi_bcast: gw_convect_dp_ml_compare") + ! Check if fcrit2 was set. call shr_assert(fcrit2 /= unset_r8, & "gw_drag_readnl: fcrit2 must be set via the namelist."// &