Commit e199b83e authored by Ignacio Pisso's avatar Ignacio Pisso

avoid warning message reading winds for lnsp (ParamID=152)

parent ce8480d6
......@@ -245,6 +245,8 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
elseif ((discipl.eq.2).and.(parCat.eq.0).and.(parNum.eq.0).and. &
(typSurf.eq.1)) then ! LSM
isec1(6)=172 ! indicatorOfParameter
elseif (parNum.eq.152) then
isec1(6)=152 ! avoid warning for lnsp
else
print*,'***WARNING: undefined GRiB2 message found!',discipl, &
parCat,parNum,typSurf
......
......@@ -255,6 +255,8 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
elseif ((discipl.eq.2).and.(parCat.eq.0).and.(parNum.eq.0).and. &
(typSurf.eq.1)) then ! LSM
isec1(6)=172 ! indicatorOfParameter
elseif (parNum.eq.152) then
isec1(6)=152 ! avoid warning for lnsp
else
print*,'***WARNING: undefined GRiB2 message found!',discipl, &
parCat,parNum,typSurf
......
......@@ -221,6 +221,8 @@ subroutine readwind_nests(indj,n,uuhn,vvhn,wwhn)
elseif ((discipl.eq.2).and.(parCat.eq.0).and.(parNum.eq.0).and. &
(typSurf.eq.1)) then ! LSM
isec1(6)=172 ! indicatorOfParameter
elseif (parNum.eq.152) then
isec1(6)=152 ! avoid warning for lnsp
else
print*,'***WARNING: undefined GRiB2 message found!',discipl, &
parCat,parNum,typSurf
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment