Changeset 2363b24 in flexpart.git for src/timemanager.f90

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

File:

• src/timemanager.f90 (modified) (2 diffs)

src/timemanager.f90

@@ -132 +132 @@
   loutend=loutnext+loutaver/2
 
-  !  open(127,file=path(2)(1:length(2))//'depostat.dat'
-  !    +  ,form='unformatted')
-  !write (*,*) 'writing deposition statistics depostat.dat!'
 
   !**********************************************************************
@@ -147 +144 @@
 !CGZ-lifetime: set lifetime to 0
   
+  if (interpolhmix) write(*,*) 'Interpolating hmix'
+
   write(*,46) float(itime)/3600,itime,numpart