Changeset 1489 for palm

Timestamp:

Oct 30, 2014 8:09:12 AM (9 years ago)

Author:

raasch

Message:

bugfix: sums_ls_l must not be used with large_scale_forcing switched off

File:

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

palm/trunk/SOURCE/subsidence.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: sums_ls_l can only be used if large_scale_forcing is switched on
 ! 
 ! Former revisions:
@@ -305 +305 @@
        ENDDO
 
-       sums_ls_l(nzt+1,ls_index) = sums_ls_l(nzt,ls_index)
-
+       IF ( large_scale_forcing )  THEN
+          sums_ls_l(nzt+1,ls_index) = sums_ls_l(nzt,ls_index)
+       ENDIF
 
 !