Changeset 28

Timestamp:

Oct 20, 2014, 7:40:54 PM (10 years ago)

Author:

hasod

Message:

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

File:

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

trunk/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)