Changeset 0199ad8 in flexpart.git

Timestamp:

Jul 15, 2015, 9:35:53 AM (9 years ago)

Author:

Ignacio Pisso <Ignacio.Pisso@…>

Branches:

svn-petra, svn-trunk

Children:

0317b57

Parents:

75dfd42

git-author:

Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 08:40:51)

git-committer:

Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:35:53)

Message:

from svn r28 | hasod | 2014-10-20 21:40:54 +0200 (Mon, 20 Oct 2014) | 3 lines
Changed paths:

M /trunk/src/readspecies.f90

BUGFIX: uninitialised values for area_hour, point_hour led to zero
particle mass

File:

• src/readspecies.f90 (modified) (1 diff)

src/readspecies.f90

@@ -239 +239 @@
 20   continue
 
+
+  ! Read in daily and day-of-week variation of emissions, if available
+  !*******************************************************************
+  ! HSO: This is not yet implemented as namelist parameters
+  ! default values set to 1
+
+  do j=1,24           ! initialize everything to no variation
+    area_hour(i,j)=1.
+    point_hour(i,j)=1.
+  end do
+  do j=1,7
+    area_dow(i,j)=1.
+    point_dow(i,j)=1.
+  end do
+
   if (readerror.ne.0) then ! text format input
-
-    ! Read in daily and day-of-week variation of emissions, if available
-    !*******************************************************************
-    ! HSO: This is not yet implemented as namelist parameters
-
-    do j=1,24           ! initialize everything to no variation
-      area_hour(i,j)=1.
-      point_hour(i,j)=1.
-    end do
-    do j=1,7
-      area_dow(i,j)=1.
-      point_dow(i,j)=1.
-    end do
 
     read(unitspecies,*,end=22)