declare lbms as logical*1 in sfcsub.F in order to compile in debug mo…

…del with Intel 17
grantfirl · May 22, 2019 · 19b59fd · 19b59fd
1 parent db305cc
commit 19b59fd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/sfcsub.F b/physics/sfcsub.F
@@ -2697,7 +2697,7 @@ subroutine fixrdg(lugb,idim,jdim,fngrib,
       real (kind=kind_io8), allocatable :: data8(:)
       real (kind=kind_io4), allocatable :: data4(:)
 !
-      logical, allocatable :: lbms(:)
+      logical*1, allocatable :: lbms(:)
 !
       integer kpds(200),kgds(200)
       integer jpds(200),jgds(200), kpds0(200)
@@ -8150,7 +8150,7 @@ subroutine fixrdc(lugb,fngrib,kpds5,kpds7,mon,slmask,
       real (kind=kind_io8), allocatable :: rlngrb(:), rltgrb(:)
 !
       logical lmask, yr2kc, gaus, ijordr
-      logical, allocatable :: lbms(:)
+      logical*1, allocatable :: lbms(:)
 !
       integer, intent(in) :: kpds7
       integer kpds(1000),kgds(1000)