Ignore:
Timestamp:
Apr 11, 2016 9:00:35 AM (5 years ago)
Author:
maronga
Message:

bugfix: radiation_scheme = constant caused model crash when used in combination with land surface model

File:
1 edited

Legend:

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

    r1852 r1853  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Adjusted for use with radiation_scheme = constant
    2222!
    2323! Former revisions:
     
    798798             ENDIF
    799799
    800              IF ( radiation )  THEN
     800             IF ( radiation  .AND.  radiation_scheme /= 'constant' )  THEN
    801801                sums_l(nzb,101,tn)  = sums_l(nzb,101,tn)  + rad_net(j,i)
    802802                sums_l(nzb,102,tn)  = sums_l(nzb,102,tn)  + rad_lw_in(nzb,j,i)
Note: See TracChangeset for help on using the changeset viewer.