Bugfix in physics/mp_thompson.F90: aerosol arrays may not be allocate…

…d, use assumed size arrays
NCAR · Apr 1, 2020 · dc8a5cc · dc8a5cc
1 parent efb68b5
commit dc8a5cc
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/physics/mp_thompson.F90 b/physics/mp_thompson.F90
@@ -39,10 +39,10 @@ subroutine mp_thompson_init(ncol, nlev, is_aerosol_aware, &
          integer,                   intent(in)    :: ncol
          integer,                   intent(in)    :: nlev
          logical,                   intent(in)    :: is_aerosol_aware
-         real(kind_phys), optional, intent(inout) :: nwfa2d(1:ncol)
-         real(kind_phys), optional, intent(inout) :: nifa2d(1:ncol)
-         real(kind_phys), optional, intent(inout) :: nwfa(1:ncol,1:nlev)
-         real(kind_phys), optional, intent(inout) :: nifa(1:ncol,1:nlev)
+         real(kind_phys), optional, intent(inout) :: nwfa2d(:)
+         real(kind_phys), optional, intent(inout) :: nifa2d(:)
+         real(kind_phys), optional, intent(inout) :: nwfa(:,:)
+         real(kind_phys), optional, intent(inout) :: nifa(:,:)
          integer,                   intent(in)    :: mpicomm
          integer,                   intent(in)    :: mpirank
          integer,                   intent(in)    :: mpiroot