Changeset 4467


Ignore:
Timestamp:
Mar 20, 2020 4:57:57 PM (13 months ago)
Author:
maronga
Message:

cleanup for last wind turbine model commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/wind_turbine_model_mod.f90

    r4465 r4467  
    2626! -----------------
    2727! $Id$
     28! ASCII output cleanup
     29!
     30! 4465 2020-03-20 11:35:48Z maronga
    2831! Removed old ASCII outputm, some syntax layout adjustments, added output for
    2932! rotor and tower diameters. Added warning message in case of NetCDF 3 (no
     
    19691972       IMPLICIT NONE
    19701973
    1971        CHARACTER (LEN=4) ::  turbine_id
    19721974
    19731975       INTEGER(iwp) ::  i, j, k          !< loop indices
     
    19771979       INTEGER(iwp) ::  ring             !<
    19781980       INTEGER(iwp) ::  ii, jj, kk       !<
    1979        
     1981
    19801982       REAL(wp)     ::  flag               !< flag to mask topography grid points
    19811983       REAL(wp)     ::  sin_rot, cos_rot   !<
    19821984       REAL(wp)     ::  sin_yaw, cos_yaw   !<
    1983        
     1985
    19841986       REAL(wp) ::  aa, bb, cc, dd  !< interpolation distances
    19851987       REAL(wp) ::  gg              !< interpolation volume var 
    1986        
     1988
    19871989       REAL(wp) ::  dist_u_3d, dist_v_3d, dist_w_3d  !< smearing distances
    19881990     
Note: See TracChangeset for help on using the changeset viewer.