From 9069803f078451def3c55f75429f8e6ed78e7591 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Fri, 15 Mar 2024 11:29:46 -0400 Subject: [PATCH] allocate rho_dry to zero size when not in use --- ccpp/data/GFS_typedefs.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/ccpp/data/GFS_typedefs.F90 b/ccpp/data/GFS_typedefs.F90 index ed29a4104..a6ca113c8 100644 --- a/ccpp/data/GFS_typedefs.F90 +++ b/ccpp/data/GFS_typedefs.F90 @@ -3536,6 +3536,7 @@ subroutine coupling_create (Coupling, IM, Model) allocate (Coupling%min_fplume(0)) allocate (Coupling%max_fplume(0)) allocate (Coupling%uspdavg(0)) + allocate (Coupling%rho_dry (0,0)) allocate (Coupling%hpbl_thetav(0)) allocate (Coupling%rrfs_hwp (0)) allocate (Coupling%rrfs_hwp_ave (0))