Changeset 3685 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Jan 21, 2019 1:02:11 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3655 r3685 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Some interface calls moved to module_interface + cleanup 31 ! 32 ! 3655 2019-01-07 16:51:22Z knoop 30 33 ! Implementation of the PALM module interface 31 34 ! … … 1092 1095 END INTERFACE usm_define_netcdf_grid 1093 1096 1094 INTERFACE usm_init _urban_surface1095 MODULE PROCEDURE usm_init _urban_surface1096 END INTERFACE usm_init _urban_surface1097 INTERFACE usm_init 1098 MODULE PROCEDURE usm_init 1099 END INTERFACE usm_init 1097 1100 1098 1101 INTERFACE usm_material_heat_model … … 1124 1127 END INTERFACE usm_wrd_local 1125 1128 1126 INTERFACE usm_ allocate_surface1127 MODULE PROCEDURE usm_ allocate_surface1128 END INTERFACE usm_ allocate_surface1129 INTERFACE usm_init_arrays 1130 MODULE PROCEDURE usm_init_arrays 1131 END INTERFACE usm_init_arrays 1129 1132 1130 1133 INTERFACE usm_3d_data_averaging … … 1138 1141 1139 1142 !-- Public functions 1140 PUBLIC usm_boundary_condition, usm_check_parameters, usm_init _urban_surface,&1143 PUBLIC usm_boundary_condition, usm_check_parameters, usm_init,& 1141 1144 usm_rrd_local, & 1142 1145 usm_surface_energy_balance, usm_material_heat_model, & 1143 1146 usm_swap_timelevel, usm_check_data_output, usm_3d_data_averaging, & 1144 1147 usm_data_output_3d, usm_define_netcdf_grid, usm_parin, & 1145 usm_wrd_local, usm_ allocate_surface1148 usm_wrd_local, usm_init_arrays 1146 1149 1147 1150 !-- Public parameters, constants and initial values … … 1161 1164 !> and plant canopy and it allocates the needed arrays for USM 1162 1165 !------------------------------------------------------------------------------! 1163 SUBROUTINE usm_ allocate_surface1166 SUBROUTINE usm_init_arrays 1164 1167 1165 1168 IMPLICIT NONE 1166 1169 1167 1170 INTEGER(iwp) :: l 1171 1172 CALL location_message( 'initializing and allocating urban surfaces', .FALSE. ) 1168 1173 1169 1174 ! … … 1556 1561 IF ( ALLOCATED( surf_usm_v(l)%iwghf_eb_window ) ) surf_usm_v(l)%iwghf_eb_window = 0.0_wp 1557 1562 ENDDO 1558 1559 END SUBROUTINE usm_allocate_surface 1563 1564 CALL location_message( 'finished', .TRUE. ) 1565 1566 END SUBROUTINE usm_init_arrays 1560 1567 1561 1568 … … 3870 3877 !> Initialization of the urban surface model 3871 3878 !------------------------------------------------------------------------------! 3872 SUBROUTINE usm_init _urban_surface3879 SUBROUTINE usm_init 3873 3880 3874 3881 USE arrays_3d, & … … 3926 3933 REAL(wp) :: z_agl !< height above ground 3927 3934 3935 CALL location_message( 'initializing urban surface model', .FALSE. ) 3928 3936 3929 3937 CALL cpu_log( log_point_s(78), 'usm_init', 'start' ) … … 5189 5197 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 5190 5198 5191 CALL cpu_log( log_point_s(78), 'usm_init', 'stop' ) 5192 5193 END SUBROUTINE usm_init_urban_surface 5199 CALL cpu_log( log_point_s(78), 'usm_init', 'stop' ) 5200 5201 CALL location_message( 'finished', .TRUE. ) 5202 5203 END SUBROUTINE usm_init 5194 5204 5195 5205
Note: See TracChangeset
for help on using the changeset viewer.