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

Timestamp:

Feb 7, 2019 10:11:02 AM (5 years ago)

Author:

raasch

Message:

modifications to avoid compiler warnings about unused variables, temperton-fft: GOTO statements replaced, file re-formatted corresponding to coding standards, ssh-calls for compilations on remote systems modified to avoid output of login messages on specific systems changed again (palmbuild, reverted as before r3549), error messages for failed restarts extended (palmrun)

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3685 2019-01-21 01:02:11Z knoop
 ! Some interface calls moved to module_interface + cleanup
 ! 
@@ -237 +240 @@
     REAL(wp), DIMENSION(1:100) ::  rnac             = 0.0_wp  !< nacelle diameter [m]
     REAL(wp), DIMENSION(1:100) ::  rr              = 63.0_wp  !< rotor radius [m]
-    REAL(wp), DIMENSION(1:100) ::  turb_cd_nacelle = 0.85_wp  !< drag coefficient for nacelle
+!    REAL(wp), DIMENSION(1:100) ::  turb_cd_nacelle = 0.85_wp  !< drag coefficient for nacelle
     REAL(wp), DIMENSION(1:100) ::  turb_cd_tower    = 1.2_wp  !< drag coefficient for tower
 
@@ -306 +309 @@
     REAL(wp) ::  eps_min          !< 
     REAL(wp) ::  eps_min2         !< 
-    REAL(wp) ::  sqrt_arg         !< 
 
 !
@@ -519 +521 @@
        IMPLICIT NONE
        
-       INTEGER(iwp) ::  ierrn       !<
-
        CHARACTER (LEN=80) ::  line  !< dummy string that contains the current line of the parameter file 
 
@@ -531 +531 @@
                                   rnac, rr, segment_length, segment_width,     &
                                   slope2, speed_control, tilt, time_turbine_on,&
-                                  turb_cd_nacelle, turb_cd_tower, pitch_rate,  &
+                                  turb_cd_tower, pitch_rate,                   &
                                   yaw_control, yaw_speed, tl_cor
+!                                  , turb_cd_nacelle
                                   
        NAMELIST /wind_turbine_parameters/                                      &
@@ -543 +544 @@
                                   rnac, rr, segment_length, segment_width,     &
                                   slope2, speed_control, tilt, time_turbine_on,&
-                                  turb_cd_nacelle, turb_cd_tower, pitch_rate,  &
+                                  turb_cd_tower, pitch_rate,                   &
                                   yaw_control, yaw_speed, tl_cor
+!                                  , turb_cd_nacelle
 !
 !--    Try to find wind turbine model package
@@ -980 +982 @@
        INTEGER(iwp) ::  tower_n      !<
        INTEGER(iwp) ::  tower_s      !<
-!
-!--    Help variables for the calulaction of the nacelle drag
-       INTEGER(iwp) ::  i_ip         !<
-       INTEGER(iwp) ::  i_ipg        !<
-       
-       REAL(wp) ::  yvalue               
-       REAL(wp) ::  dy_int           !< 
-       REAL(wp) ::  dz_int           !<
        
        REAL(wp), DIMENSION(:,:), ALLOCATABLE :: circle_points  !<