Merge branch 'dev' into release-10

src/FLEXPART.f90

@@ -79,7 +79,7 @@ program flexpart
 
   ! FLEXPART version string
   flexversion_major = '10' ! Major version number, also used for species file names
-  flexversion='Version '//trim(flexversion_major)//'.2beta (2017-08-01)'
+  flexversion='Version '//trim(flexversion_major)//'.3 (2019-06-26)'
   verbosity=0
 
   ! Read the pathnames where input/output files are stored

src/readspecies.f90

@@ -98,6 +98,11 @@ subroutine readspecies(id_spec,pos_spec)
   pohdconst=-9.9E-09
   pohnconst=2.0
   pweightmolar=-999.9
+  parea_dow=-999.9
+  parea_hour=-999.9
+  ppoint_dow=-999.9
+  ppoint_hour=-999.9
+
 
   do j=1,24           ! initialize everything to no variation
     parea_hour(j)=1.

src/readwind_ecmwf.f90

@@ -245,6 +245,8 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
     elseif ((discipl.eq.2).and.(parCat.eq.0).and.(parNum.eq.0).and. &
          (typSurf.eq.1)) then ! LSM
       isec1(6)=172         ! indicatorOfParameter
+    elseif (parNum.eq.152) then 
+      isec1(6)=152         ! avoid warning for lnsp    
     else
       print*,'***WARNING: undefined GRiB2 message found!',discipl, &
            parCat,parNum,typSurf

src/readwind_ecmwf_mpi.f90

@@ -255,6 +255,8 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
     elseif ((discipl.eq.2).and.(parCat.eq.0).and.(parNum.eq.0).and. &
          (typSurf.eq.1)) then ! LSM
       isec1(6)=172         ! indicatorOfParameter
+    elseif (parNum.eq.152) then 
+      isec1(6)=152         ! avoid warning for lnsp         
     else
       print*,'***WARNING: undefined GRiB2 message found!',discipl, &
            parCat,parNum,typSurf

src/readwind_nests.f90

@@ -221,6 +221,8 @@ subroutine readwind_nests(indj,n,uuhn,vvhn,wwhn)
   elseif ((discipl.eq.2).and.(parCat.eq.0).and.(parNum.eq.0).and. &
        (typSurf.eq.1)) then ! LSM
     isec1(6)=172         ! indicatorOfParameter
+  elseif (parNum.eq.152) then 
+      isec1(6)=152         ! avoid warning for lnsp       
   else
     print*,'***WARNING: undefined GRiB2 message found!',discipl, &
          parCat,parNum,typSurf