Changeset 05cf28d in flexpart.git for src/wetdepo.f90


Ignore:
Timestamp:
Apr 22, 2016, 9:35:28 AM (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:
356dcb9
Parents:
61df8d9
Message:

Updated checks and warning messages for wet deposition parameters given in SPECIES files

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/wetdepo.f90

    r341f4b7 r05cf28d  
    350350
    351351! AEROSOL
    352 !**************************************************
    353           if (dquer(ks).gt.0.) then ! is particle
    354 
     352!********
     353          if (dquer(ks).gt.0.) then
    355354            S_i= frac_act/cl
    356355
    357 !*********************
    358356! GAS
    359           else ! is gas
     357!****
     358          else
    360359
    361360            cle=(1-cl)/(henry(ks)*(r_air/3500.)*act_temp)+cl
    362361!REPLACE to switch old/ new scheme
    363 ! S_i=frac_act/cle
     362          ! S_i=frac_act/cle
    364363            S_i=1/cle
    365364          endif ! gas or particle
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG