From 19b59fd9a7dd7bb5662348e24f35b7d2eff1ae5e Mon Sep 17 00:00:00 2001 From: "Grant.Firl" Date: Wed, 22 May 2019 16:58:35 -0600 Subject: [PATCH] declare lbms as logical*1 in sfcsub.F in order to compile in debug model with Intel 17 --- physics/sfcsub.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/physics/sfcsub.F b/physics/sfcsub.F index 916ff4e48..02e5200ef 100644 --- 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)