Changeset 2363b24 in flexpart.git for src


Ignore:
Timestamp:
Jan 27, 2017, 9:46:35 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:
278f4ed
Parents:
cea125d
Message:

added hmix interpolation option to com_mod

Location:
src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • src/advance.f90

    rcea125d r2363b24  
    250250    do k=1,2
    251251       mind=memind(k) ! eso: compatibility with 3-field version
    252        if (interpolhmix)
     252       if (interpolhmix) then
    253253             h1(k)=p1*hmix(ix ,jy ,1,mind) &
    254254                 + p2*hmix(ixp,jy ,1,mind) &
  • src/com_mod.f90

    rcea125d r2363b24  
    753753 
    754754  logical :: usekernel=.false.    ! true if the output kernel shall be switched on
    755   logical :: interpolhmxi=.false. ! true if the hmix shall be interpolated
     755  logical :: interpolhmix=.false. ! true if the hmix shall be interpolated
    756756 
    757757 
  • src/timemanager.f90

    r420423c r2363b24  
    132132  loutend=loutnext+loutaver/2
    133133
    134   !  open(127,file=path(2)(1:length(2))//'depostat.dat'
    135   !    +  ,form='unformatted')
    136   !write (*,*) 'writing deposition statistics depostat.dat!'
    137134
    138135  !**********************************************************************
     
    147144!CGZ-lifetime: set lifetime to 0
    148145 
     146  if (interpolhmix) write(*,*) 'Interpolating hmix'
     147
    149148  write(*,46) float(itime)/3600,itime,numpart
    150149
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG