- Timestamp:
- Jul 26, 2018 1:46:50 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_parin.f90
r3049 r3174 25 25 ! ----------------- 26 26 ! $Id$ 27 ! userpar in READ statement has been changed to user_parameters 28 ! 29 ! 3049 2018-05-29 13:52:36Z Giersch 27 30 ! Error messages revised 28 31 ! … … 137 140 ! 138 141 !-- Read user-defined namelist 139 READ ( 11, user par)142 READ ( 11, user_parameters ) 140 143 141 144 user_defined_namelist_found = .TRUE. -
palm/trunk/SOURCE/wind_turbine_model_mod.f90
r3139 r3174 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Check for vertical stretching has been revised. 29 ! 30 ! 3139 2018-07-17 11:30:10Z Giersch 28 31 ! Bugfix in calculation of alpha_attack 29 32 ! … … 1016 1019 !-- the area where the wtm is active. ABS (...) is required because the 1017 1020 !-- default value of dz_stretch_level_start is -9999999.9_wp (negative). 1018 IF ( ABS( dz_stretch_level_start(1) ) <= MAXVAL(rcz) + MAXVAL(rr) + & 1019 eps_min) THEN 1021 IF ( ABS( dz_stretch_level_start(1) ) <= MAXVAL(rcz(1:nturbines)) + & 1022 MAXVAL(rr(1:nturbines)) + & 1023 eps_min) THEN 1020 1024 WRITE( message_string, * ) 'The lowest level where vertical ', & 1021 1025 'stretching is applied &have to be ', & 1022 'greater than ', MAXVAL(rcz) +&1023 MAXVAL(rr ) + eps_min1026 'greater than ',MAXVAL(rcz(1:nturbines)) +& 1027 MAXVAL(rr(1:nturbines)) + eps_min 1024 1028 CALL message( 'wtm_init', 'PA0484', 1, 2, 0, 6, 0 ) 1025 1029 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.