Changeset 4436 for palm/trunk/SOURCE/wind_turbine_model_mod.f90

Timestamp:

Mar 3, 2020 12:47:02 PM (4 years ago)

Author:

oliver.maas

Message:

Bugfix: shifted netcdf preprocessor directive to correct position

File:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: shifted netcdf preprocessor directive to correct position
 ! 
 ! Former revisions:
@@ -644 +644 @@
     SUBROUTINE wtm_check_parameters
 
-    
        IMPLICIT NONE
-    
+
        IF ( .NOT. input_pids_wtm )  THEN
           IF ( ( .NOT.speed_control ) .AND. pitch_control )  THEN
@@ -653 +652 @@
              CALL message( 'wtm_check_parameters', 'PA0461', 1, 2, 0, 6, 0 )
           ENDIF
-          
+
           IF ( ANY( omega_rot(1:nturbines) < 0.0 ) )  THEN
              message_string = 'omega_rot < 0.0, Please set omega_rot to '     // &
@@ -659 +658 @@
              CALL message( 'wtm_check_parameters', 'PA0462', 1, 2, 0, 6, 0 )
           ENDIF
-          
-          
+
+
           IF ( ANY( rcx(1:nturbines) == 9999999.9_wp ) .OR.                       &
                 ANY( rcy(1:nturbines) == 9999999.9_wp ) .OR.                       &
@@ -686 +685 @@
        REAL(wp) ::  delta_r_init     !< 
 
+#if defined( __netcdf )
 !
 ! Read wtm input file (netcdf) if it exists
@@ -692 +692 @@
 !
 !--       Open the wtm  input file
-#if defined( __netcdf )
           CALL open_read_file( TRIM( input_file_wtm ) //                       &
                                TRIM( coupling_char ), pids_id )