Changeset 0199ad8 in flexpart.git for src/readspecies.f90
- Timestamp:
- Jul 15, 2015, 9:35:53 AM (9 years ago)
- Branches:
- svn-petra, svn-trunk
- Children:
- 0317b57
- Parents:
- 75dfd42
- git-author:
- Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 08:40:51)
- git-committer:
- Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:35:53)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readspecies.f90
rb4d29ce r0199ad8 239 239 20 continue 240 240 241 242 ! Read in daily and day-of-week variation of emissions, if available 243 !******************************************************************* 244 ! HSO: This is not yet implemented as namelist parameters 245 ! default values set to 1 246 247 do j=1,24 ! initialize everything to no variation 248 area_hour(i,j)=1. 249 point_hour(i,j)=1. 250 end do 251 do j=1,7 252 area_dow(i,j)=1. 253 point_dow(i,j)=1. 254 end do 255 241 256 if (readerror.ne.0) then ! text format input 242 243 ! Read in daily and day-of-week variation of emissions, if available244 !*******************************************************************245 ! HSO: This is not yet implemented as namelist parameters246 247 do j=1,24 ! initialize everything to no variation248 area_hour(i,j)=1.249 point_hour(i,j)=1.250 end do251 do j=1,7252 area_dow(i,j)=1.253 point_dow(i,j)=1.254 end do255 257 256 258 read(unitspecies,*,end=22)
Note: See TracChangeset
for help on using the changeset viewer.