Changes in / [0c8c7f2:d005a67] in flexpart.git
- Location:
- src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readwind_gfs.f90
rdb91eb7 r5d74ed9 83 83 84 84 ! NCEP 85 integer :: numpt,numpu,numpv,numpw,numprh 85 integer :: numpt,numpu,numpv,numpw,numprh,numpclwch 86 86 real :: help, temp, ew 87 87 real :: elev … … 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 clwch(i,j,nlev_ec-k+2,n)=zsec4(nxfield*(ny-j-1)+i+1) 560 if((isec1(6).eq.153).and.(isec1(7).eq.100)) then !! CLWCR Cloud liquid water content [kg/kg] 561 if((i.eq.0).and.(j.eq.0)) then 562 do ii=1,nuvz 563 if ((isec1(8)*100.0).eq.akz(ii)) numpclwch=ii 564 end do 565 endif 566 help=zsec4(nxfield*(ny-j-1)+i+1) 567 if(i.le.i180) then 568 clwch(i179+i,j,numpclwch,n)=help 569 else 570 clwch(i-i181,j,numpclwch,n)=help 571 endif 561 572 readclouds=.true. 562 573 sumclouds=.true. 574 ! readclouds=.false. 575 ! sumclouds=.false. 563 576 endif 564 577 -
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 -
src/verttransform_ecmwf.f90
r0a94e13 r0a94e13 653 653 if ((lsp.gt.0.01).or.(convp.gt.0.01)) then ! cloud and precipitation 654 654 655 do kz=nz, 1,-1 !go Bottom up!655 do kz=nz,2,-1 !go Bottom up! 656 656 if (clw(ix,jy,kz,n).gt. 0) then ! is in cloud 657 657 cloudsh(ix,jy,n)=cloudsh(ix,jy,n)+height(kz)-height(kz-1) -
src/verttransform_gfs.f90
rdb91eb7 r437c545 548 548 if ((lsp.gt.0.01).or.(convp.gt.0.01)) then ! cloud and precipitation 549 549 550 do kz=nz, 1,-1 !go Bottom up!550 do kz=nz,2,-1 !go Bottom up! 551 551 if (clw(ix,jy,kz,n).gt. 0) then ! is in cloud 552 552 cloudsh(ix,jy,n)=cloudsh(ix,jy,n)+height(kz)-height(kz-1) 553 553 clouds(ix,jy,kz,n)=1 ! is a cloud 554 554 if (lsp.ge.convp) then 555 clouds(ix,jy,kz,n)=3 ! lsp in-cloud555 clouds(ix,jy,kz,n)=3 ! lsp in-cloud 556 556 else 557 557 clouds(ix,jy,kz,n)=2 ! convp in-cloud
Note: See TracChangeset
for help on using the changeset viewer.