physics/sfcsub.F: workaround for gfortran 8.1, crashes when declarati…

…on 'logical*1 lbms(mdata)' is used
dudhia · Sep 4, 2018 · 399294a · 399294a
1 parent 3fe977a
commit 399294a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/physics/sfcsub.F b/physics/sfcsub.F
@@ -2681,12 +2681,13 @@ subroutine fixrdg(lugb,idim,jdim,fngrib,
       real (kind=kind_io8), allocatable :: data8(:)
       real (kind=kind_io4), allocatable :: data4(:)
 !
-      logical*1 lbms(mdata)
+      logical, allocatable :: lbms(:)
 !
       integer kpds(200),kgds(200)
       integer jpds(200),jgds(200), kpds0(200)
 !
       allocate(data8(1:idim*jdim))
+      allocate(lbms(1:mdata))
       kpds = 0
       kgds = 0
       jpds = 0
@@ -2776,6 +2777,7 @@ subroutine fixrdg(lugb,idim,jdim,fngrib,
       endif
 !
       deallocate(data8)
+      deallocate(lbms)
       return
       end
       subroutine getarea(kgds,dlat,dlon,rslat,rnlat,wlon,elon,ijordr
@@ -7914,14 +7916,15 @@ subroutine fixrdc(lugb,fngrib,kpds5,kpds7,mon,slmask,
       real (kind=kind_io8), allocatable :: rlngrb(:), rltgrb(:)
 !
       logical lmask, yr2kc, gaus, ijordr
-      logical*1 lbms(mdata)
+      logical, allocatable :: lbms(:)
 !
       integer, intent(in) :: kpds7
       integer kpds(1000),kgds(1000)
       integer jpds(1000),jgds(1000), kpds0(1000)
       real (kind=kind_io8) outlat(len), outlon(len)
 !
       allocate(data8(1:mdata))
+      allocate(lbms(mdata))
 !
 !     integer imax_sv, jmax_sv, wlon_sv, rnlat_sv, kpds1_sv
 !     date imax_sv/0/, jmax_sv/0/, wlon_sv/999.0/, rnlat_sv/999.0/
@@ -8057,6 +8060,7 @@ subroutine fixrdc(lugb,fngrib,kpds5,kpds7,mon,slmask,
       call baclose(lugb,iret)
 !
       deallocate(data8)
+      deallocate(lbms)
       return
       end subroutine fixrdc
       subroutine fixrda(lugb,fngrib,kpds5,slmask,