Changeset 77783e3 in flexpart.git for src/readspecies.f90

Timestamp:

Jan 24, 2019, 1:34:48 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:

328fdf9, 437c545, 3d7eebf

Parents:

a816416 (diff), cc6abaa (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'release-10.3beta' into dev

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
 !************************************************************
@@ -348 +351 @@
 
 
-  endif
-
 22 close(unitspecies)