Changeset 5fc7b68 in flexpart.git
- Timestamp:
- Jul 16, 2019, 8:45:29 AM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 95a45d3
- Parents:
- 7cebaf3
- Location:
- src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART.f90
r7cebaf3 r5fc7b68 80 80 ! FLEXPART version string 81 81 flexversion_major = '10' ! Major version number, also used for species file names 82 flexversion='Version '//trim(flexversion_major)//'.4 (2019-07-1 4)'82 flexversion='Version '//trim(flexversion_major)//'.4 (2019-07-16)' 83 83 verbosity=0 84 84 -
src/get_wetscav.f90
r7cebaf3 r5fc7b68 295 295 liq_frac=0 296 296 ice_frac=1 297 else if (act_temp .ge. 273. 15) then297 else if (act_temp .ge. 273.) then 298 298 liq_frac=1 299 299 ice_frac=0 … … 302 302 ! IP bugfix v10.4, calculate ice_frac and liq_frac 303 303 ice_frac= ((act_temp-273.)/(273.-253.))**2. 304 liq_frac = 1-ice_frac !((act_temp-253.)/(273.-253.))**2.305 304 !liq_frac = 1-ice_frac !((act_temp-253.)/(273.-253.))**2. 305 liq_frac=max(0.,1.-ice_frac) 306 306 end if 307 307 ! ZHG: Calculate the aerosol partition based on cloud phase and Ai and Bi
Note: See TracChangeset
for help on using the changeset viewer.