Changeset 3469 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- Oct 30, 2018 8:05:07 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r3467 r3469 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Add indoor model (kanani, srissman, tlang) 28 ! 29 ! 3467 2018-10-30 19:05:21Z suehring 27 30 ! Implementation of a new aerosol module salsa. 28 31 ! … … 433 436 dt_dopr_listing, dt_dots, dt_dvrp, dt_run_control, end_time, & 434 437 first_call_lpm, first_call_mas, galilei_transformation, & 435 humidity, in termediate_timestep_count,&438 humidity, indoor_model, intermediate_timestep_count, & 436 439 intermediate_timestep_count_max, & 437 440 land_surface, large_scale_forcing, & … … 471 474 USE indices, & 472 475 ONLY: nbgp, nx, nxl, nxlg, nxr, nxrg, nzb, nzt 476 477 USE indoor_model_mod, & 478 ONLY: dt_indoor, im_main_heatcool, skip_time_do_indoor, time_indoor 473 479 474 480 USE interaction_droplets_ptq_mod, & … … 1248 1254 ENDIF 1249 1255 ! 1256 !-- If required, calculate indoor temperature, waste heat, heat flux 1257 !-- through wall, etc. 1258 !-- dt_indoor steers the frequency of the indoor model calculations 1259 IF ( indoor_model & 1260 .AND. intermediate_timestep_count == intermediate_timestep_count_max & 1261 .AND. time_since_reference_point > skip_time_do_indoor ) THEN 1262 1263 time_indoor = time_indoor + dt_3d 1264 1265 IF ( time_indoor >= dt_indoor ) THEN 1266 1267 time_indoor = time_indoor - dt_indoor 1268 1269 CALL cpu_log( log_point(76), 'indoor_model', 'start' ) 1270 CALL im_main_heatcool 1271 CALL cpu_log( log_point(76), 'indoor_model', 'stop' ) 1272 1273 ENDIF 1274 ENDIF 1275 ! 1250 1276 !-- Increase simulation time and output times 1251 1277 nr_timesteps_this_run = nr_timesteps_this_run + 1
Note: See TracChangeset
for help on using the changeset viewer.