Ignore:
Timestamp:
Feb 15, 2019 6:38:58 PM (2 years ago)
Author:
suehring
Message:

Coupling of indoor model to atmosphere; output of indoor temperatures and waste heat; enable restarts with indoor model; bugfix plant transpiration; bugfix - missing calculation of 10cm temperature

File:
1 edited

Legend:

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

    r3739 r3744  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Add indoor model
    2323!
    2424! Former revisions:
     
    174174   USE indoor_model_mod,                                                       &
    175175       ONLY:  im_parin,                                                        &
     176              im_check_data_output,                                            &
     177              im_check_parameters,                                             &
     178              im_data_output_3d,                                               &
    176179              im_init
    177180
     
    497500   IF ( air_chemistry )        CALL chem_check_parameters
    498501   IF ( gust_module_enabled )  CALL gust_check_parameters
     502   IF ( indoor_model )         CALL im_check_parameters
    499503   IF ( land_surface )         CALL lsm_check_parameters
    500504   IF ( large_scale_forcing  .OR.  nudging )  CALL lsf_nudging_check_parameters ! ToDo: create single module switch
     
    647651   ENDIF
    648652
     653   IF ( unit == 'illegal' .AND. indoor_model ) THEN
     654       CALL im_check_data_output( variable, unit )
     655   ENDIF
     656   
    649657   IF ( unit == 'illegal'  .AND.  urban_surface                      &
    650658        .AND.  variable(1:4) == 'usm_' )  THEN  ! ToDo: remove aditional conditions
     
    10221030   IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
    10231031      CALL gust_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do )
     1032      resorted = .TRUE.
     1033   ENDIF
     1034   
     1035   IF ( .NOT. found  .AND.  indoor_model )  THEN
     1036      CALL im_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do )
    10241037      resorted = .TRUE.
    10251038   ENDIF
Note: See TracChangeset for help on using the changeset viewer.