Ignore:
Timestamp:
Oct 30, 2018 8:05:07 PM (5 years ago)
Author:
kanani
Message:

Implement indoor climate and energy demand model

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/time_integration.f90

    r3467 r3469  
    2525! -----------------
    2626! $Id$
     27! Add indoor model (kanani, srissman, tlang)
     28!
     29! 3467 2018-10-30 19:05:21Z suehring
    2730! Implementation of a new aerosol module salsa.
    2831!
     
    433436               dt_dopr_listing, dt_dots, dt_dvrp, dt_run_control, end_time,    &
    434437               first_call_lpm, first_call_mas, galilei_transformation,         &
    435                humidity, intermediate_timestep_count,                          &
     438               humidity, indoor_model, intermediate_timestep_count,            &
    436439               intermediate_timestep_count_max,                                &
    437440               land_surface, large_scale_forcing,                              &
     
    471474    USE indices,                                                               &
    472475        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
    473479
    474480    USE interaction_droplets_ptq_mod,                                          &
     
    12481254       ENDIF
    12491255!
     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!
    12501276!--    Increase simulation time and output times
    12511277       nr_timesteps_this_run      = nr_timesteps_this_run + 1
Note: See TracChangeset for help on using the changeset viewer.