Changeset d6a0977 in flexpart.git for src/gridcheck.f90


Ignore:
Timestamp:
Dec 14, 2015, 3:10:04 PM (8 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
f75967d
Parents:
88d8c3d
Message:

Updates to Henrik's wet depo scheme

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/gridcheck.f90

    r5f9d14a rd6a0977  
    195195  elseif ((parCat.eq.1).and.(parNum.eq.0).and.(typSurf.eq.105)) then ! Q
    196196    isec1(6)=133         ! indicatorOfParameter
    197 !hg
     197!ZHG FOR CLOUDS FROM GRIB
    198198  elseif ((parCat.eq.1).and.(parNum.eq.83).and.(typSurf.eq.105)) then ! clwc
    199199    isec1(6)=246         ! indicatorOfParameter
    200200  elseif ((parCat.eq.1).and.(parNum.eq.84).and.(typSurf.eq.105)) then ! ciwc
    201201    isec1(6)=247         ! indicatorOfParameter
    202 !hg end
     202!ZHG end
    203203  elseif ((parCat.eq.3).and.(parNum.eq.0).and.(typSurf.eq.1)) then !SP
    204204    isec1(6)=134         ! indicatorOfParameter
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG