Changeset 6a713e8 in flexpart.git

Timestamp:

Jan 24, 2019, 12:08:09 PM (5 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

Children:

cc6abaa

Parents:

7123c70

Message:

bugfix in readspecies, DOW* were unitialized

File:

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

src/readspecies.f90

@@ -101 +101 @@
 
   do j=1,24           ! initialize everything to no variation
+    parea_hour(j)=1.
+    ppoint_hour(j)=1.
     area_hour(pos_spec,j)=1.
     point_hour(pos_spec,j)=1.
   end do
   do j=1,7
+    parea_dow(j)=1.
+    ppoint_dow(j)=1.
     area_dow(pos_spec,j)=1.
     point_dow(pos_spec,j)=1.