Changeset 3986 for palm

Timestamp:

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

Author:

Giersch

Message:

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

Location:

palm/trunk/SOURCE

Files:

• gust_mod.f90 (modified) (2 diffs)
• user_module.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) )

palm/trunk/SOURCE/user_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Redundant integration of control parameters in user_rrd_global removed
+! 
+! 3911 2019-04-17 12:26:19Z knoop
 ! Bugfix: added before_prognostic_equations case in user_actions
 ! 
@@ -1129 +1132 @@
 
 
-    USE control_parameters,                                                 &
-        ONLY: length, restart_string
-
-
     LOGICAL, INTENT(OUT)  ::  found