Changeset 3986 for palm


Ignore:
Timestamp:
May 20, 2019 2:08:14 PM (5 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:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/gust_mod.f90

    r3837 r3986  
    2525! -----------------
    2626! $Id$
     27! CASE statement for dummy variable u2_av in gust_rrd_local changed to avoid
     28! unintended interdependencies with user-defined variables
     29!
     30! 3837 2019-03-28 16:55:58Z knoop
    2731! unused variable for file index removed from rrd-subroutines parameter list
    2832!
     
    643647       SELECT CASE ( restart_string(1:length) )
    644648
    645           CASE ( 'u2_av' )
     649          CASE ( '.......' )
    646650!             IF ( .NOT. ALLOCATED( u2_av ) ) THEN
    647651!                  ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
  • palm/trunk/SOURCE/user_module.f90

    r3911 r3986  
    2525! -----------------
    2626! $Id$
     27! Redundant integration of control parameters in user_rrd_global removed
     28!
     29! 3911 2019-04-17 12:26:19Z knoop
    2730! Bugfix: added before_prognostic_equations case in user_actions
    2831!
     
    11291132
    11301133
    1131     USE control_parameters,                                                 &
    1132         ONLY: length, restart_string
    1133 
    1134 
    11351134    LOGICAL, INTENT(OUT)  ::  found
    11361135
Note: See TracChangeset for help on using the changeset viewer.