Remove old comment from physics/m_micro.F90, revert whitespace change…

…s in physics/module_mp_thompson.F90
NCAR · Jul 1, 2021 · 28650fb · 28650fb
1 parent 8ddbb36
commit 28650fb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git a/physics/m_micro.F90 b/physics/m_micro.F90
@@ -181,9 +181,6 @@ subroutine m_micro_run(   im,       lm,     flipv, dt_i           &
      &                prsl_i,u_i,v_i,phil,   omega_i, QLLS_i,QILS_i,    &
      &                                       lwheat_i,swheat_i
        real (kind=kind_phys), dimension(:,0:),intent(in):: prsi_i, phii
-! GJF* These variables are conditionally allocated depending on whether the
-!     Morrison-Gettelman microphysics is used, so they must be declared 
-!     using assumed shape.
        real (kind=kind_phys), dimension(:,:),  intent(in)  ::           &
      &       CNV_DQLDT_i, CLCN_i,     QLCN_i, QICN_i,                   &
      &       CNV_MFD_i,               cf_upi, CNV_FICE_i, CNV_NDROP_i,  &
@@ -210,9 +207,6 @@ subroutine m_micro_run(   im,       lm,     flipv, dt_i           &
        integer, dimension(:), intent(inout):: KCBL
        real (kind=kind_phys),dimension(:,:),intent(inout):: q_io, t_io,   &
      &                                             ncpl_io,ncpi_io,CLLS_io
-! GJF* These variables are conditionally allocated depending on whether the
-!     Morrison-Gettelman microphysics is used, so they must be declared 
-!     using assumed shape.
        real (kind=kind_phys),dimension(:,:),intent(inout):: rnw_io,snw_io,&
      &                                             ncpr_io, ncps_io,        &
      &                                             qgl_io,  ncgl_io

diff --git a/physics/module_mp_thompson.F90 b/physics/module_mp_thompson.F90
@@ -1069,8 +1069,8 @@ SUBROUTINE mp_gt_driver(qv, qc, qr, qi, qs, qg, ni, nr, nc,     &
 
 !..Local variables
       REAL, DIMENSION(kts:kte):: &
-                          qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d,  &
-                          nr1d, nc1d, nwfa1d, nifa1d,                &
+                          qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d,     &
+                          nr1d, nc1d, nwfa1d, nifa1d,                   &
                           t1d, p1d, w1d, dz1d, rho, dBZ
 !..Extended diagnostics, single column arrays
       REAL, DIMENSION(:), ALLOCATABLE::                              &