Changeset 3986 for palm/trunk
- Timestamp:
- May 20, 2019 2:08:14 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/gust_mod.f90
r3837 r3986 25 25 ! ----------------- 26 26 ! $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 27 31 ! unused variable for file index removed from rrd-subroutines parameter list 28 32 ! … … 643 647 SELECT CASE ( restart_string(1:length) ) 644 648 645 CASE ( ' u2_av' )649 CASE ( '.......' ) 646 650 ! IF ( .NOT. ALLOCATED( u2_av ) ) THEN 647 651 ! ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) -
palm/trunk/SOURCE/user_module.f90
r3911 r3986 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Redundant integration of control parameters in user_rrd_global removed 28 ! 29 ! 3911 2019-04-17 12:26:19Z knoop 27 30 ! Bugfix: added before_prognostic_equations case in user_actions 28 31 ! … … 1129 1132 1130 1133 1131 USE control_parameters, &1132 ONLY: length, restart_string1133 1134 1135 1134 LOGICAL, INTENT(OUT) :: found 1136 1135
Note: See TracChangeset
for help on using the changeset viewer.