Changeset 3614 for palm/trunk/SOURCE/biometeorology_mod.f90
- Timestamp:
- Dec 10, 2018 7:05:46 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/biometeorology_mod.f90
r3593 r3614 27 27 ! ----------------- 28 28 ! $Id$ 29 ! unused variables removed 30 ! 31 ! 3593 2018-12-03 13:51:13Z kanani 29 32 ! Bugfix: additional tmrt_grid allocation in case bio_mrt not selected as ouput, 30 33 ! replace degree symbol by degree_C … … 157 160 LOGICAL :: aver_v = .FALSE. !< switch: do v averaging in this module? 158 161 LOGICAL :: aver_w = .FALSE. !< switch: do w averaging in this module? 159 LOGICAL :: aver_mrt = .FALSE. !< switch: do mrt averaging in this module?160 162 LOGICAL :: average_trigger_perct = .FALSE. !< update averaged input on call to bio_perct? 161 163 LOGICAL :: average_trigger_utci = .FALSE. !< update averaged input on call to bio_utci? … … 1076 1078 ONLY: message_string 1077 1079 1078 USE netcdf_data_input_mod, & 1079 ONLY: netcdf_data_input_uvem, uvem_projarea_f, uvem_radiance_f, & 1080 uvem_irradiance_f, uvem_integration_f, building_obstruction_f 1080 USE netcdf_data_input_mod, & 1081 ONLY: netcdf_data_input_uvem 1081 1082 1082 1083 IMPLICIT NONE … … 3930 3931 3931 3932 USE indices, & 3932 ONLY: n xlg, nxrg, nyng, nysg, nys, nyn, nxl, nxr3933 ONLY: nys, nyn, nxl, nxr 3933 3934 3934 3935 … … 4034 4035 ! 4035 4036 ! 4036 DO i = nxl, nxr !nxlg, nxrg4037 DO j = nys, nyn !nysg, nyng4037 DO i = nxl, nxr 4038 DO j = nys, nyn 4038 4039 ! 4039 4040 ! !-- extract obstruction from IBSET-Integer_Array ------------------'
Note: See TracChangeset
for help on using the changeset viewer.