Changeset 462f74b in flexpart.git for src/concoutput.f90

Timestamp:

Jul 12, 2016, 11:02:42 AM (8 years ago)

Author:

Sabine Eckhardt <sabine@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

842074e

Parents:

f28aa0a

Message:

first version of the backward scavenging

File:

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

src/concoutput.f90

@@ -264 +264 @@
     endif
 
+    if (iout.eq.6) then !scavdep output
+      open(unitoutgrid,file=path(2)(1:length(2))//'grid_scav_'//adate// &
+           atime//'_'//anspec,form='unformatted')
+      write(unitoutgrid) itime
+     endif
+
     do kp=1,maxpointspec_act
       do nage=1,nageclass
@@ -342 +348 @@
 ! Concentration output
 !*********************
-        if ((iout.eq.1).or.(iout.eq.3).or.(iout.eq.5)) then
+        if ((iout.eq.1).or.(iout.eq.3).or.(iout.eq.5).or.(iout.eq.6)) then
 
 ! Wet deposition