physics/drag_suite.F90: bugfixes

SMoorthi-emc · Sep 29, 2019 · 78c5910 · 78c5910
1 parent 5b7201d
commit 78c5910
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/physics/drag_suite.F90 b/physics/drag_suite.F90
@@ -405,7 +405,7 @@ subroutine drag_suite_run(                                           &
    integer, parameter   ::  ims=1, kms=1, its=1, kts=1
    real(kind=kind_phys), intent(in) ::  fv, pi
    real(kind=kind_phys) ::  rcl, cdmb
-   real(kind=kind_phys) ::  g_inv = 1./G
+   real(kind=kind_phys) ::  g_inv
 
    real(kind=kind_phys), intent(out) ::                          &
      &                   dudt(im,km),dvdt(im,km),                &
@@ -546,7 +546,7 @@ subroutine drag_suite_run(                                           &
    integer,parameter    ::  mdir=8
    !integer              ::  nwdir(mdir)
    !data nwdir/6,7,5,8,2,3,1,4/
-   integer, parameter :: nwdir = (/6,7,5,8,2,3,1,4/)
+   integer, parameter :: nwdir(8) = (/6,7,5,8,2,3,1,4/)
 !
 !  variables for flow-blocking drag
 !
@@ -568,11 +568,9 @@ subroutine drag_suite_run(                                           &
    character(len=*), intent(out) :: errmsg
    integer,          intent(out) :: errflg
 
-
    ! Calculate inverse of gravitational acceleration
    g_inv = 1./G
 
-
    ! Initialize CCPP error handling variables
    errmsg = ''
    errflg = 0