Changeset 3986 for palm/trunk/SOURCE/gust_mod.f90

Timestamp:

May 20, 2019 2:08:14 PM (4 years ago)

Author:

Giersch

Message:

Case statement in gust_rrd_local modifed, redundant integration of control parameters in user_rrd_global removed

File:

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

palm/trunk/SOURCE/gust_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! CASE statement for dummy variable u2_av in gust_rrd_local changed to avoid 
+! unintended interdependencies with user-defined variables 
+! 
+! 3837 2019-03-28 16:55:58Z knoop
 ! unused variable for file index removed from rrd-subroutines parameter list
 ! 
@@ -643 +647 @@
        SELECT CASE ( restart_string(1:length) )
 
-          CASE ( 'u2_av' )
+          CASE ( '.......' )
 !             IF ( .NOT. ALLOCATED( u2_av ) ) THEN
 !                  ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )