Merge pull request #577 from grantfirl/csawmg_related_GFS_MP_generic_…

…post_bugfix GFS_MP_generic.F90 conditional allocation bugfix
NCAR · Feb 23, 2021 · 51733cc · 51733cc
2 parents 1c08fa1 + a4de57a
commit 51733cc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/GFS_MP_generic.F90 b/physics/GFS_MP_generic.F90
@@ -111,7 +111,7 @@ subroutine GFS_MP_generic_post_run(im, levs, kdt, nrcm, ncld, nncl, ntcw, ntrac,
       real(kind=kind_phys),                           intent(in)    :: dtf, frain, con_g
       real(kind=kind_phys), dimension(im),            intent(in)    :: rain1, xlat, xlon, tsfc
       real(kind=kind_phys), dimension(im),            intent(inout) :: ice, snow, graupel, rainc
-      real(kind=kind_phys), dimension(im),            intent(in)    :: rain0, ice0, snow0, graupel0
+      real(kind=kind_phys), dimension(:),             intent(in)    :: rain0, ice0, snow0, graupel0 ! conditionally allocated in GFS_typedefs (imp_physics == GFDL or Thompson)
       real(kind=kind_phys), dimension(im,nrcm),       intent(in)    :: rann
       real(kind=kind_phys), dimension(im,levs),       intent(in)    :: gt0, prsl, save_t, save_qv, del
       real(kind=kind_phys), dimension(im,levs+1),     intent(in)    :: prsi, phii