Changeset 4436 for palm/trunk/SOURCE/wind_turbine_model_mod.f90
- Timestamp:
- Mar 3, 2020 12:47:02 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/wind_turbine_model_mod.f90
r4434 r4436 21 21 ! Current revisions: 22 22 ! ----------------- 23 ! 23 ! Bugfix: shifted netcdf preprocessor directive to correct position 24 24 ! 25 25 ! Former revisions: … … 644 644 SUBROUTINE wtm_check_parameters 645 645 646 647 646 IMPLICIT NONE 648 647 649 648 IF ( .NOT. input_pids_wtm ) THEN 650 649 IF ( ( .NOT.speed_control ) .AND. pitch_control ) THEN … … 653 652 CALL message( 'wtm_check_parameters', 'PA0461', 1, 2, 0, 6, 0 ) 654 653 ENDIF 655 654 656 655 IF ( ANY( omega_rot(1:nturbines) < 0.0 ) ) THEN 657 656 message_string = 'omega_rot < 0.0, Please set omega_rot to ' // & … … 659 658 CALL message( 'wtm_check_parameters', 'PA0462', 1, 2, 0, 6, 0 ) 660 659 ENDIF 661 662 660 661 663 662 IF ( ANY( rcx(1:nturbines) == 9999999.9_wp ) .OR. & 664 663 ANY( rcy(1:nturbines) == 9999999.9_wp ) .OR. & … … 686 685 REAL(wp) :: delta_r_init !< 687 686 687 #if defined( __netcdf ) 688 688 ! 689 689 ! Read wtm input file (netcdf) if it exists … … 692 692 ! 693 693 !-- Open the wtm input file 694 #if defined( __netcdf )695 694 CALL open_read_file( TRIM( input_file_wtm ) // & 696 695 TRIM( coupling_char ), pids_id )
Note: See TracChangeset
for help on using the changeset viewer.