Changeset 7873bf7 in flexpart.git
- Timestamp:
- Apr 19, 2019, 10:40:41 AM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 5d74ed9
- Parents:
- 437c545
- Location:
- src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readwind_gfs.f90
r437c545 r7873bf7 134 134 numpw=0 135 135 numprh=0 136 numpclwch=0 136 137 ifield=0 137 138 10 ifield=ifield+1 … … 557 558 endif 558 559 ! SEC & IP 12/2018 read GFS clouds 559 if( isec1(6).eq.153) then !! CLWCR Cloud liquid water content [kg/kg]560 if((isec1(6).eq.153).and.(isec1(7).eq.100)) then !! CLWCR Cloud liquid water content [kg/kg] 560 561 if((i.eq.0).and.(j.eq.0)) then 561 562 do ii=1,nuvz 562 if ((isec1(8)*100.0).eq.akz(ii)) nump u=ii563 if ((isec1(8)*100.0).eq.akz(ii)) numpclwch=ii 563 564 end do 564 565 endif 565 566 help=zsec4(nxfield*(ny-j-1)+i+1) 566 567 if(i.le.i180) then 567 clwch(i179+i,j,nump u,n)=help568 else 569 clwch(i-i181,j,nump u,n)=help568 clwch(i179+i,j,numpclwch,n)=help 569 else 570 clwch(i-i181,j,numpclwch,n)=help 570 571 endif 571 572 readclouds=.true. -
src/releaseparticles.f90
r75a4ded r7873bf7 114 114 average_timecorrect=0. 115 115 do k=1,nspec 116 if (zpoint1(i).gt.0.5) then ! point source 116 if(abs(xpoint2(i)-xpoint1(i)).lt.1.E-4.and.abs(ypoint2(i)-ypoint1(i)).lt.1.E-4) then 117 ! if (zpoint1(i).gt.0.5) then ! point source 117 118 timecorrect(k)=point_hour(k,nhour)*point_dow(k,ndayofweek) 118 119 else ! area source
Note: See TracChangeset
for help on using the changeset viewer.