Changes in src/readspecies.f90 [03adec6:92fab65] in flexpart.git

File:

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

src/readspecies.f90

@@ +1 @@
+! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
+! SPDX-License-Identifier: GPL-3.0-or-later
+
 subroutine readspecies(id_spec,pos_spec)
 
@@ -39 +42 @@
   implicit none
 
-  integer :: i, pos_spec,j,icheck_dow_hour
+  integer :: i, pos_spec,j
   integer :: idow,ihour,id_spec
   character(len=3) :: aspecnumb
@@ -226 +229 @@
     ohnconst(pos_spec)=pohnconst
 
-
-    icheck_dow_hour=0
     do j=1,24     ! 24 hours, starting with 0-1 local time
       area_hour(pos_spec,j)=parea_hour(j)
       point_hour(pos_spec,j)=ppoint_hour(j)
-      if (parea_hour(j).ne.1 .or. ppoint_hour(j).ne.1) icheck_dow_hour=1
     end do
     do j=1,7      ! 7 days of the week, starting with Monday
       area_dow(pos_spec,j)=parea_dow(j)
       point_dow(pos_spec,j)=ppoint_dow(j)
-      if (parea_dow(j).ne.1 .or. ppoint_dow(j).ne.1) icheck_dow_hour=1
     end do
 
@@ -358 +357 @@
 20 continue
 
-  if ((icheck_dow_hour.eq.1).and.(ldirect.lt.0)) then
-    write(*,*) '#### FLEXPART MODEL WARNING                     ####'
-    write(*,*) '#### The variation for an emission release      ####'
-    write(*,*) '#### will have no effect in backward mode       ####'  
-  endif
 
 22 close(unitspecies)