Ignore:
Timestamp:
Mar 12, 2015 4:12:49 PM (6 years ago)
Author:
maronga
Message:

minor bugfixes in lasm/radiation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/flow_statistics.f90

    r1568 r1571  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! Bugfix: output of rad_net and rad_sw_in
    2424!
    2525! Former revisions:
     
    14801480!--    Collect radiation model timeseries
    14811481       IF ( radiation )  THEN
    1482           ts_value(dots_rad,sr)   = hom(nzb,1,99,sr)           ! rad_net
    1483           ts_value(dots_rad+1,sr) = hom(nzb,1,100,sr)          ! rad_sw_in
     1482          ts_value(dots_rad,sr)   = hom(nzb,1,101,sr)           ! rad_net
     1483          ts_value(dots_rad+1,sr) = hom(nzb,1,102,sr)          ! rad_sw_in
    14841484       ENDIF
    14851485
     
    32853285!--    Collect radiation model timeseries
    32863286       IF ( radiation )  THEN
    3287           ts_value(dots_rad,sr)   = hom(nzb,1,99,sr)           ! rad_net
    3288           ts_value(dots_rad+1,sr) = hom(nzb,1,100,sr)          ! rad_sw_in
     3287          ts_value(dots_rad,sr)   = hom(nzb,1,101,sr)           ! rad_net
     3288          ts_value(dots_rad+1,sr) = hom(nzb,1,102,sr)          ! rad_sw_in
    32893289       ENDIF
    32903290
Note: See TracChangeset for help on using the changeset viewer.