Changeset 3469


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

Implement indoor climate and energy demand model

Location:
palm/trunk/SOURCE
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r3467 r3469  
    2525# -----------------
    2626# $Id$
     27# Add indoor model (kanani, srissman, tlang),
     28# minor formatting
     29#
     30# 3467 2018-10-30 19:05:21Z suehring
    2731# Implementation of a new aerosol module salsa.
    2832#
     
    514518        average_3d_data.f90 \
    515519        basic_constants_and_equations_mod.f90 \
     520        biometeorology_mod.f90 \
     521        biometeorology_ipt_mod.f90 \
     522        biometeorology_pt_mod.f90 \
     523        biometeorology_pet_mod.f90 \
     524        biometeorology_utci_mod.f90 \
    516525        boundary_conds.f90 \
    517526        buoyancy.f90 \
     
    553562        gust_mod.f90 \
    554563        header.f90 \
    555         biometeorology_mod.f90 \
    556         biometeorology_ipt_mod.f90 \
    557         biometeorology_pt_mod.f90 \
    558         biometeorology_pet_mod.f90 \
    559         biometeorology_utci_mod.f90 \
     564        indoor_model_mod.f90 \
    560565        inflow_turbulence.f90 \
    561566        init_3d_model.f90 \
     
    10801085        surface_mod.o \
    10811086        virtual_flight_mod.o
     1087indoor_model_mod.o: \
     1088        cpulog_mod.o \
     1089        date_and_time_mod.o \
     1090        mod_kinds.o \
     1091        modules.o \
     1092        netcdf_data_input_mod.o \
     1093        surface_mod.o \
     1094        urban_surface_mod.o
    10821095inflow_turbulence.o: \
    10831096        cpulog_mod.o \
     
    10931106        disturb_heatflux.o \
    10941107        gust_mod.o \
     1108        indoor_model_mod.o \
    10951109        land_surface_model_mod.o \
    10961110        large_scale_forcing_nudging_mod.o \
     
    14151429        date_and_time_mod.o \
    14161430        gust_mod.o \
     1431        indoor_model_mod.o \
    14171432        land_surface_model_mod.o \
    14181433        model_1d_mod.o \
     
    17081723        disturb_heatflux.o \
    17091724        gust_mod.o \
     1725        indoor_model_mod.o \
    17101726        interaction_droplets_ptq.o \
    17111727        land_surface_model_mod.o \
  • palm/trunk/SOURCE/init_3d_model.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!
     
    567570
    568571    USE indices
    569    
     572
     573    USE indoor_model_mod,                                                      &
     574        ONLY:  im_init
     575
    570576    USE kinds
    571577
     
    24472453
    24482454!
     2455!-- If required, initialize indoor model
     2456    IF ( indoor_model )  THEN
     2457       CALL location_message( 'initializing indoor model', .FALSE. )
     2458       CALL im_init
     2459       CALL location_message( 'finished', .TRUE. )
     2460    ENDIF
     2461
     2462!
    24492463!-- Initialize the ws-scheme.   
    24502464    IF ( ws_scheme_sca .OR. ws_scheme_mom )  CALL ws_init
  • palm/trunk/SOURCE/modules.f90

    r3467 r3469  
    2525! -----------------
    2626! $Id$
     27! Add indoor model (kanani, srissman, tlang)
     28!
     29! 3467 2018-10-30 19:05:21Z suehring
    2730! Add biometeorology
    2831!
     
    13451348    LOGICAL ::  humidity = .FALSE.                               !< namelist parameter
    13461349    LOGICAL ::  humidity_remote = .FALSE.                        !< switch for receiving near-surface humidity flux (atmosphere-ocean coupling)
     1350    LOGICAL ::  indoor_model = .FALSE.                           !< switch for indoor-climate and energy-demand model
    13471351    LOGICAL ::  large_scale_forcing = .FALSE.                    !< namelist parameter
    13481352    LOGICAL ::  large_scale_subsidence = .FALSE.                 !< namelist parameter
  • palm/trunk/SOURCE/parin.f90

    r3467 r3469  
    2525! -----------------
    2626! $Id$
     27! Add indoor model (kanani, srissman, tlang),
     28! minor formatting
     29!
     30! 3467 2018-10-30 19:05:21Z suehring
    2731! Implementation of a new aerosol module salsa.
    2832!
     
    484488    USE indices,                                                               &
    485489        ONLY:  nx, ny, nz
     490
     491    USE indoor_model_mod,                                                      &
     492        ONLY:  im_parin
    486493
    487494    USE kinds
     
    917924          CALL chem_parin
    918925          CALL uvem_parin
    919 !
    920 !--       Check if SALSA processes should be carried out and read &salsa_par
    921 !--       if required
    922           CALL salsa_parin         
     926          CALL im_parin
     927          CALL salsa_parin
    923928!
    924929!--       Read user-defined variables
  • 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
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3449 r3469  
    2828! -----------------
    2929! $Id$
     30! Add missing PUBLIC variables for new indoor model
     31!
     32! 3449 2018-10-29 19:36:56Z suehring
    3033! Bugfix: Fix average arrays allocations in usm_average_3d_data (J.Resler)
    3134! Bugfix: Fix reading wall temperatures (J.Resler)
     
    12511254!-- Public parameters, constants and initial values
    12521255    PUBLIC usm_anthropogenic_heat, usm_material_model, usm_wall_mod,           &
    1253            usm_green_heat_model, usm_temperature_near_surface, building_pars
     1256           usm_green_heat_model, usm_temperature_near_surface, building_pars,  &
     1257           nzt_wall, t_surf_10cm_h, t_surf_10cm_v, t_wall_h, t_wall_v,         &
     1258           t_window_h, t_window_v, building_type
    12541259
    12551260
Note: See TracChangeset for help on using the changeset viewer.