Changeset 28 for trunk


Ignore:
Timestamp:
Oct 20, 2014, 7:40:54 PM (4 years ago)
Author:
hasod
Message:

BUGFIX: uninitialised values for area_hour, point_hour led to zero
particle mass

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/readspecies.f90

    r27 r28  
    23923920   continue
    240240
     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
    241256  if (readerror.ne.0) then ! text format input
    242 
    243     ! Read in daily and day-of-week variation of emissions, if available
    244     !*******************************************************************
    245     ! HSO: This is not yet implemented as namelist parameters
    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
    255257
    256258    read(unitspecies,*,end=22)
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG