Changeset 03adec6 in flexpart.git


Ignore:
Timestamp:
Mar 1, 2021, 3:02:58 PM (3 years ago)
Author:
Sabine <sabine.eckhardt@…>
Branches:
dev
Children:
4138764
Parents:
a7167e4
Message:

write a warning if species variation is used in bkwd mode

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/readspecies.f90

    r3481cc1 r03adec6  
    3939  implicit none
    4040
    41   integer :: i, pos_spec,j
     41  integer :: i, pos_spec,j,icheck_dow_hour
    4242  integer :: idow,ihour,id_spec
    4343  character(len=3) :: aspecnumb
     
    226226    ohnconst(pos_spec)=pohnconst
    227227
     228
     229    icheck_dow_hour=0
    228230    do j=1,24     ! 24 hours, starting with 0-1 local time
    229231      area_hour(pos_spec,j)=parea_hour(j)
    230232      point_hour(pos_spec,j)=ppoint_hour(j)
     233      if (parea_hour(j).ne.1 .or. ppoint_hour(j).ne.1) icheck_dow_hour=1
    231234    end do
    232235    do j=1,7      ! 7 days of the week, starting with Monday
    233236      area_dow(pos_spec,j)=parea_dow(j)
    234237      point_dow(pos_spec,j)=ppoint_dow(j)
     238      if (parea_dow(j).ne.1 .or. ppoint_dow(j).ne.1) icheck_dow_hour=1
    235239    end do
    236240
     
    35435820 continue
    355359
     360  if ((icheck_dow_hour.eq.1).and.(ldirect.lt.0)) then
     361    write(*,*) '#### FLEXPART MODEL WARNING                     ####'
     362    write(*,*) '#### The variation for an emission release      ####'
     363    write(*,*) '#### will have no effect in backward mode       ####' 
     364  endif
    356365
    35736622 close(unitspecies)
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG