diff --git a/physics/module_bl_mynn.F90 b/physics/module_bl_mynn.F90
index a492e50e0..3b0150e9e 100644
--- a/physics/module_bl_mynn.F90
+++ b/physics/module_bl_mynn.F90
@@ -4669,9 +4669,10 @@ SUBROUTINE mynn_bl_driver(            &
     LOGICAL :: INITIALIZE_QKE
 
 ! Stochastic fields 
-     INTEGER,  INTENT(IN)                                     ::spp_pbl
-     REAL, DIMENSION( ims:ime, kms:kme), INTENT(IN),OPTIONAL  ::pattern_spp_pbl
-     REAL, DIMENSION(KTS:KTE)                         ::    rstoch_col
+     INTEGER,  INTENT(IN)                             :: spp_pbl
+     !GJF: this array must be assumed-shape since it's conditionally-allocated
+     REAL, DIMENSION(:,:), INTENT(IN)                 :: pattern_spp_pbl
+     REAL, DIMENSION(KTS:KTE)                         :: rstoch_col
 
 ! Substepping TKE
      INTEGER :: nsub
diff --git a/physics/module_sf_mynn.F90 b/physics/module_sf_mynn.F90
index d1b3ce340..5f227750a 100644
--- a/physics/module_sf_mynn.F90
+++ b/physics/module_sf_mynn.F90
@@ -295,7 +295,8 @@ SUBROUTINE SFCLAY_mynn(                           &
                                                           U3D,V3D, &
                                                         th3d,pi3d
 
-      REAL, DIMENSION( ims:ime, kms:kme), OPTIONAL,                &
+      !GJF: This array must be assumed-shape since it is conditionally-allocated
+      REAL, DIMENSION( :,: ),                                      &
                 INTENT(IN) ::                      pattern_spp_sfc
 !===================================
 ! 2D VARIABLES
@@ -3765,4 +3766,3 @@ REAL function psih_unstable(zolf,psi_opt)
 !========================================================================
 
 END MODULE module_sf_mynn
-