Changeset 3637 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Dec 20, 2018 1:51:36 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3636 r3637 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Implementation of the PALM module interface 31 ! 32 ! 3636 2018-12-19 13:48:34Z raasch 30 33 ! nopointer option removed 31 34 ! … … 52 55 ! 53 56 ! 3449 2018-10-29 19:36:56Z suehring 54 ! Bugfix: Fix average arrays allocations in usm_ average_3d_data(J.Resler)57 ! Bugfix: Fix average arrays allocations in usm_3d_data_averaging (J.Resler) 55 58 ! Bugfix: Fix reading wall temperatures (J.Resler) 56 59 ! Bugfix: Fix treating of outputs for wall temperature and sky view factors (J.Resler) … … 182 185 ! 2906 2018-03-19 08:56:40Z Giersch 183 186 ! Local variable ids has to be initialized with a value of -1 in 184 ! usm_ average_3d_data187 ! usm_3d_data_averaging 185 188 ! 186 189 ! 2894 2018-03-15 09:17:58Z Giersch … … 1125 1128 END INTERFACE usm_allocate_surface 1126 1129 1127 INTERFACE usm_ average_3d_data1128 MODULE PROCEDURE usm_ average_3d_data1129 END INTERFACE usm_ average_3d_data1130 INTERFACE usm_3d_data_averaging 1131 MODULE PROCEDURE usm_3d_data_averaging 1132 END INTERFACE usm_3d_data_averaging 1130 1133 1131 1134 … … 1138 1141 usm_rrd_local, & 1139 1142 usm_surface_energy_balance, usm_material_heat_model, & 1140 usm_swap_timelevel, usm_check_data_output, usm_ average_3d_data,&1143 usm_swap_timelevel, usm_check_data_output, usm_3d_data_averaging, & 1141 1144 usm_data_output_3d, usm_define_netcdf_grid, usm_parin, & 1142 1145 usm_wrd_local, usm_allocate_surface … … 1563 1566 !> the array necessary for storing the average. 1564 1567 !------------------------------------------------------------------------------! 1565 SUBROUTINE usm_ average_3d_data( mode, variable )1568 SUBROUTINE usm_3d_data_averaging( mode, variable ) 1566 1569 1567 1570 IMPLICIT NONE … … 1575 1578 CHARACTER(LEN=6), DIMENSION(0:nd-1), PARAMETER :: dirname = (/ '_roof ', '_south', '_north', '_west ', '_east ' /) 1576 1579 INTEGER(iwp), DIMENSION(0:nd-1), PARAMETER :: dirint = (/ iup_u, isouth_u, inorth_u, iwest_u, ieast_u /) 1580 1581 IF ( variable(1:4) == 'usm_' ) THEN ! is such a check really rquired? 1577 1582 1578 1583 !-- find the real name of the variable … … 2447 2452 ENDIF 2448 2453 2449 END SUBROUTINE usm_average_3d_data 2454 ENDIF 2455 2456 END SUBROUTINE usm_3d_data_averaging 2450 2457 2451 2458
Note: See TracChangeset
for help on using the changeset viewer.