Skip to content

GitLab

Commit e199b83e authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

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

parent ce8480d6
Hide whitespace changes
Inline Side-by-side
src/readwind_ecmwf.f90
View file @ e199b83e
......@@ -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
......
src/readwind_ecmwf_mpi.f90
View file @ e199b83e
......@@ -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
......
src/readwind_nests.f90
View file @ e199b83e
......@@ -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
......
Supports Markdown
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