Changeset 1853 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Apr 11, 2016 9:00:35 AM (8 years ago)

Author:

maronga

Message:

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

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (2 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! Adjusted for use with radiation_scheme = constant
 !
 ! Former revisions:
@@ -798 +798 @@
              ENDIF
 
-             IF ( radiation )  THEN
+             IF ( radiation  .AND.  radiation_scheme /= 'constant' )  THEN
                 sums_l(nzb,101,tn)  = sums_l(nzb,101,tn)  + rad_net(j,i)
                 sums_l(nzb,102,tn)  = sums_l(nzb,102,tn)  + rad_lw_in(nzb,j,i)