Changeset 03adec6 in flexpart.git
- Timestamp:
- Mar 1, 2021, 3:02:58 PM (3 years ago)
- Branches:
- dev
- Children:
- 4138764
- Parents:
- a7167e4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readspecies.f90
r3481cc1 r03adec6 39 39 implicit none 40 40 41 integer :: i, pos_spec,j 41 integer :: i, pos_spec,j,icheck_dow_hour 42 42 integer :: idow,ihour,id_spec 43 43 character(len=3) :: aspecnumb … … 226 226 ohnconst(pos_spec)=pohnconst 227 227 228 229 icheck_dow_hour=0 228 230 do j=1,24 ! 24 hours, starting with 0-1 local time 229 231 area_hour(pos_spec,j)=parea_hour(j) 230 232 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 231 234 end do 232 235 do j=1,7 ! 7 days of the week, starting with Monday 233 236 area_dow(pos_spec,j)=parea_dow(j) 234 237 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 235 239 end do 236 240 … … 354 358 20 continue 355 359 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 356 365 357 366 22 close(unitspecies)
Note: See TracChangeset
for help on using the changeset viewer.