Changeset 56a2e54 in flexpart.git for src/timemanager.f90
- Timestamp:
- Dec 6, 2016, 2:22:08 PM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 6481010
- Parents:
- 1c0d5e6
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager.f90
r41c421b r56a2e54 569 569 call get_wetscav(itime,lsynctime,loutnext,j,ks,grfraction,idummy,idummy,wetscav) 570 570 if (wetscav(ks).gt.0) then 571 xscav_frac1(j,ks)=wetscav(ks)*(zpoint2(npoint(j))-zpoint1(npoint(j))) 571 xscav_frac1(j,ks)=wetscav(ks)* & 572 (zpoint2(npoint(j))-zpoint1(npoint(j)))*grfraction(1) 572 573 else 573 574 xmass1(j,ks)=0.
Note: See TracChangeset
for help on using the changeset viewer.