Changeset 1862 for palm

Timestamp:

Apr 14, 2016 9:07:42 AM (9 years ago)

Author:

hoffmann

Message:

bugfix in subsidence_mod

File:

• palm/trunk/SOURCE/subsidence_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/subsidence_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: In case of vector machine optimized model runs, sums_ls_l should not 
+! be addressed if large_scale_forcing is false because sums_ls_l is not 
+! allocated. 
 ! 
 ! Former revisions:
@@ -27 +29 @@
 ! 1850 2016-04-08 13:29:27Z maronga
 ! Module renamed
-! 
 ! 
 ! 1729 2015-11-20 11:01:48Z gronemeier
@@ -122 +123 @@
        REAL(wp)     ::  ws_surface !< 
 
-       IF ( .NOT. ALLOCATED( w_subs ))  THEN
+       IF ( .NOT. ALLOCATED( w_subs ) )  THEN
           ALLOCATE( w_subs(nzb:nzt+1) )
           w_subs = 0.0_wp
@@ -234 +235 @@
              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
 
           ENDDO