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/netcdf_interface_mod.f90

    r3729 r3744  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Add indoor model
    2323!
    2424! Former revisions:
     
    660660               do2d_yz_time_count, dt_data_output_av, dt_do2d_xy, dt_do2d_xz,  &
    661661               dt_do2d_yz, dt_do3d, dt_write_agent_data, mask_size,            &
    662                do2d_xy_time_count,                                             &
    663                do3d_time_count, domask_time_count, end_time, land_surface,     &
     662               do2d_xy_time_count, do3d_time_count, domask_time_count,         &
     663               end_time, indoor_model, land_surface,                           &
    664664               mask_size_l, mask_i, mask_i_global, mask_j, mask_j_global,      &
    665665               mask_k_global, mask_surface,                                    &
     
    683683    USE kinds
    684684
     685    USE indoor_model_mod,                                                      &
     686        ONLY: im_define_netcdf_grid
     687   
    685688    USE land_surface_model_mod,                                                &
    686689        ONLY: lsm_define_netcdf_grid, nzb_soil, nzt_soil, nzs, zs
     
    19111914                      CALL gust_define_netcdf_grid( do3d(av,i), found, grid_x, &
    19121915                                                    grid_y, grid_z )
     1916                   ENDIF
     1917!
     1918!--                Check for indoor model quantities                   
     1919                   IF ( .NOT. found .AND. indoor_model ) THEN
     1920                      CALL im_define_netcdf_grid( do3d(av,i), found,           &
     1921                                                  grid_x, grid_x, grid_z )
    19131922                   ENDIF
    19141923
Note: See TracChangeset for help on using the changeset viewer.