Changeset 8f3cc41 in flexpart.git


Ignore:
Timestamp:
Apr 18, 2021, 1:48:11 PM (3 years ago)
Author:
Espen Sollum <eso@…>
Branches:
dev
Children:
6cb0801
Parents:
94b3788
Message:

Bugfix: reading GFS fields

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/readwind_gfs.f90

    r94b3788 r8f3cc41  
    197197      isec1(7)=105         ! indicatorOfTypeOfLevel
    198198      xsec18=real(2)
    199     elseif ((parCat.eq.0).and.(parNum.eq.0).and.(typSurf.eq.103)) then ! T2
     199    elseif ((parCat.eq.0).and.(parNum.eq.0).and.(typSurf.eq.103).and.(valSurf.eq.2)) then ! T2
    200200      isec1(6)=11          ! indicatorOfParameter
    201201      isec1(7)=105         ! indicatorOfTypeOfLevel
    202202      xsec18=real(2)
    203     elseif ((parCat.eq.2).and.(parNum.eq.2).and.(typSurf.eq.103)) then ! U10
     203    elseif ((parCat.eq.2).and.(parNum.eq.2).and.(typSurf.eq.103).and.(valSurf.eq.10)) then ! U10
    204204      isec1(6)=33          ! indicatorOfParameter
    205205      isec1(7)=105         ! indicatorOfTypeOfLevel
    206206      xsec18=real(10)
    207     elseif ((parCat.eq.2).and.(parNum.eq.3).and.(typSurf.eq.103)) then ! V10
     207    elseif ((parCat.eq.2).and.(parNum.eq.3).and.(typSurf.eq.103).and.(valSurf.eq.10)) then ! V10
    208208      isec1(6)=34          ! indicatorOfParameter
    209209      isec1(7)=105         ! indicatorOfTypeOfLevel
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG