Changes in / [a2e9de4:0ca4976] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/readspecies.f90
rd6a245b rcc6abaa 101 101 102 102 do j=1,24 ! initialize everything to no variation 103 parea_hour(j)=1. 104 ppoint_hour(j)=1. 103 105 area_hour(pos_spec,j)=1. 104 106 point_hour(pos_spec,j)=1. 105 107 end do 106 108 do j=1,7 109 parea_dow(j)=1. 110 ppoint_dow(j)=1. 107 111 area_dow(pos_spec,j)=1. 108 112 point_dow(pos_spec,j)=1. 109 113 end do 110 114 111 if (readerror.ne.0) then ! text format input112 115 ! Open the SPECIES file and read species names and properties 113 116 !************************************************************ … … 348 351 349 352 350 endif351 352 353 22 close(unitspecies) 353 354
Note: See TracChangeset
for help on using the changeset viewer.