Changeset 4c52d0b in flexpart.git for src/readspecies.f90

Timestamp:

Apr 8, 2021, 9:27:43 AM (3 years ago)

Author:

Espen Sollum <eso@…>

Branches:

dev

Children:

b1f28c3

Parents:

aa939a9 (diff), 4138764 (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 'dev' into GFS_025

File:

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

src/readspecies.f90

@@ -42 +42 @@
   implicit none
 
-  integer :: i, pos_spec,j
+  integer :: i, pos_spec,j,icheck_dow_hour
   integer :: idow,ihour,id_spec
   character(len=3) :: aspecnumb
@@ -229 +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
 
@@ -357 +361 @@
 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)