Changes in / [0ca4976:a2e9de4] in flexpart.git

File:

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

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.
   end do
 
+  if (readerror.ne.0) then ! text format input
 ! Open the SPECIES file and read species names and properties
 !************************************************************
@@ -351 +348 @@
 
 
+  endif
+
 22 close(unitspecies)