Changeset 93a1fa9 in flexpart.git


Ignore:
Timestamp:
Feb 1, 2017, 8:57:21 AM (7 years ago)
Author:
Sabine <sabine.eckhardt@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
0e085a8
Parents:
585a533
Message:

some varible definition deleted, one write statement

Location:
src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • src/get_wetscav.f90

    r8ee24a5 r93a1fa9  
    5555! ltsample [s]       interval over which mass is deposited                   *
    5656! prec [mm/h]        precipitation rate in subgrid, where precipitation occurs*
    57 ! wetdeposit         mass that is wet deposited                              *
    5857! wetgrid            accumulated deposited mass on output grid               *
    5958! wetscav            scavenging coefficient                                  *
     
    7877  real :: clouds_h ! cloud height for the specific grid point
    7978  real :: xtn,ytn,lsp,convp,cc,grfraction(3),prec(3),wetscav,totprec
    80   real :: wetdeposit(maxspec),restmass
     79  real :: restmass
    8180  real,parameter :: smallnum = tiny(0.0) ! smallest number that can be handled
    8281!save lfr,cfr
     
    220219!**********************************************************
    221220
    222       wetdeposit(ks)=0.
    223       wetscav=0.   
    224221
    225222      if (ngrid.gt.0) then
     
    286283        if ((ccn_aero(ks).gt.0. .or. in_aero(ks).gt.0.).or.(henry(ks).gt.0.and.dquer(ks).le.0)) then
    287284          inc_count=inc_count+1
     285          write(*,*) 'Incloud: ',inc_count
    288286! if negative coefficients (turned off) set to zero for use in equation
    289287          if (ccn_aero(ks).lt.0.) ccn_aero(ks)=0.
  • src/wetdepo.f90

    r585a533 r93a1fa9  
    6464
    6565  integer :: jpart,itime,ltsample,loutnext,ldeltat,i,j,ix,jy
    66   integer :: itage,nage,hz,il,interp_time, n
     66  integer :: itage,nage,il,interp_time, n
    6767  integer :: ks, kp
    6868  integer :: blc_count, inc_count
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG