Changeset 4467 for palm

Timestamp:

Mar 20, 2020 4:57:57 PM (5 years ago)

Author:

maronga

Message:

cleanup for last wind turbine model commit

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! ASCII output cleanup
+! 
+! 4465 2020-03-20 11:35:48Z maronga
 ! Removed old ASCII outputm, some syntax layout adjustments, added output for
 ! rotor and tower diameters. Added warning message in case of NetCDF 3 (no
@@ -1969 +1972 @@
        IMPLICIT NONE
 
-       CHARACTER (LEN=4) ::  turbine_id
 
        INTEGER(iwp) ::  i, j, k          !< loop indices
@@ -1977 +1979 @@
        INTEGER(iwp) ::  ring             !<
        INTEGER(iwp) ::  ii, jj, kk       !<
-        
+
        REAL(wp)     ::  flag               !< flag to mask topography grid points
        REAL(wp)     ::  sin_rot, cos_rot   !<
        REAL(wp)     ::  sin_yaw, cos_yaw   !<
-       
+
        REAL(wp) ::  aa, bb, cc, dd  !< interpolation distances
        REAL(wp) ::  gg              !< interpolation volume var  
-       
+
        REAL(wp) ::  dist_u_3d, dist_v_3d, dist_w_3d  !< smearing distances