- Timestamp:
- Jan 27, 2017, 9:46:35 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 278f4ed
- Parents:
- cea125d
- Location:
- src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
src/advance.f90
rcea125d r2363b24 250 250 do k=1,2 251 251 mind=memind(k) ! eso: compatibility with 3-field version 252 if (interpolhmix) 252 if (interpolhmix) then 253 253 h1(k)=p1*hmix(ix ,jy ,1,mind) & 254 254 + p2*hmix(ixp,jy ,1,mind) & -
src/com_mod.f90
rcea125d r2363b24 753 753 754 754 logical :: usekernel=.false. ! true if the output kernel shall be switched on 755 logical :: interpolhm xi=.false. ! true if the hmix shall be interpolated755 logical :: interpolhmix=.false. ! true if the hmix shall be interpolated 756 756 757 757 -
src/timemanager.f90
r420423c r2363b24 132 132 loutend=loutnext+loutaver/2 133 133 134 ! open(127,file=path(2)(1:length(2))//'depostat.dat'135 ! + ,form='unformatted')136 !write (*,*) 'writing deposition statistics depostat.dat!'137 134 138 135 !********************************************************************** … … 147 144 !CGZ-lifetime: set lifetime to 0 148 145 146 if (interpolhmix) write(*,*) 'Interpolating hmix' 147 149 148 write(*,46) float(itime)/3600,itime,numpart 150 149
Note: See TracChangeset
for help on using the changeset viewer.