Changeset 3769 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Feb 28, 2019 10:16:49 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3767 r3769 28 28 ! ----------------- 29 29 ! $Id$ 30 ! removed unused variables 31 ! 32 ! 3767 2019-02-27 08:18:02Z raasch 30 33 ! unused variables removed from rrd-subroutines parameter list 31 34 ! … … 529 532 field_capacity = 9999999.9_wp, & !< NAMELIST fc 530 533 hydraulic_conductivity = 9999999.9_wp, & !< NAMELIST gamma_w_green_sat 531 lambda_h_green_sat = 0.0_wp, & !< heat conductivity for saturated soil532 534 l_vangenuchten = 9999999.9_wp, & !< NAMELIST l_vg 533 535 n_vangenuchten = 9999999.9_wp, & !< NAMELIST n_vg … … 2842 2844 REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: temp_pf !< temp array for urban surface output procedure 2843 2845 2844 CHARACTER (len=varnamelength) 2845 INTEGER(iwp), PARAMETER 2846 CHARACTER(len=6), DIMENSION(0:nd-1), PARAMETER 2847 INTEGER(iwp), DIMENSION(0:nd-1), PARAMETER 2848 INTEGER(iwp), DIMENSION(0:nd-1), PARAMETER 2849 !< index for surf_*_v: 0:3 = (North, South, East, West)2850 INTEGER(iwp) :: ids,idsint,idsidx,isvf2851 INTEGER(iwp) 2846 CHARACTER (len=varnamelength) :: var !< trimmed variable name 2847 INTEGER(iwp), PARAMETER :: nd = 5 !< number of directions 2848 CHARACTER(len=6), DIMENSION(0:nd-1), PARAMETER :: dirname = (/ '_roof ', '_south', '_north', '_west ', '_east ' /) 2849 INTEGER(iwp), DIMENSION(0:nd-1), PARAMETER :: dirint = (/ iup_u, isouth_u, inorth_u, iwest_u, ieast_u /) 2850 INTEGER(iwp), DIMENSION(0:nd-1), PARAMETER :: diridx = (/ -1, 1, 0, 3, 2 /) 2851 !< index for surf_*_v: 0:3 = (North, South, East, West) 2852 INTEGER(iwp) :: ids,idsint,idsidx 2853 INTEGER(iwp) :: i,j,k,iwl,istat, l, m !< running indices 2852 2854 2853 2855 found = .TRUE. … … 4026 4028 INTEGER(iwp) :: st !< dummy 4027 4029 4028 REAL(wp) :: c, d,tin, twin4030 REAL(wp) :: c, tin, twin 4029 4031 REAL(wp) :: ground_floor_level_l !< local height of ground floor level 4030 4032 REAL(wp) :: z_agl !< height above ground
Note: See TracChangeset
for help on using the changeset viewer.