Changeset e199b83 in flexpart.git for src/readwind_ecmwf.f90


Ignore:
Timestamp:
Jun 26, 2019, 2:24:27 PM (5 years ago)
Author:
Ignacio Pisso <ip@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
Children:
8057778
Parents:
ce8480d
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/readwind_ecmwf.f90

    r61e07ba re199b83  
    246246         (typSurf.eq.1)) then ! LSM
    247247      isec1(6)=172         ! indicatorOfParameter
     248    elseif (parNum.eq.152) then
     249      isec1(6)=152         ! avoid warning for lnsp   
    248250    else
    249251      print*,'***WARNING: undefined GRiB2 message found!',discipl, &
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG