Changeset 3744 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Feb 15, 2019 6:38:58 PM (5 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:

• palm/trunk/SOURCE/netcdf_interface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Add indoor model
 ! 
 ! Former revisions:
@@ -660 +660 @@
                do2d_yz_time_count, dt_data_output_av, dt_do2d_xy, dt_do2d_xz,  &
                dt_do2d_yz, dt_do3d, dt_write_agent_data, mask_size,            &
-               do2d_xy_time_count,                                             &
-               do3d_time_count, domask_time_count, end_time, land_surface,     &
+               do2d_xy_time_count, do3d_time_count, domask_time_count,         &
+               end_time, indoor_model, land_surface,                           &
                mask_size_l, mask_i, mask_i_global, mask_j, mask_j_global,      &
                mask_k_global, mask_surface,                                    &
@@ -683 +683 @@
     USE kinds
 
+    USE indoor_model_mod,                                                      &
+        ONLY: im_define_netcdf_grid
+    
     USE land_surface_model_mod,                                                &
         ONLY: lsm_define_netcdf_grid, nzb_soil, nzt_soil, nzs, zs
@@ -1911 +1914 @@
                       CALL gust_define_netcdf_grid( do3d(av,i), found, grid_x, &
                                                     grid_y, grid_z )
+                   ENDIF
+!
+!--                Check for indoor model quantities                   
+                   IF ( .NOT. found .AND. indoor_model ) THEN 
+                      CALL im_define_netcdf_grid( do3d(av,i), found,           &
+                                                  grid_x, grid_x, grid_z )
                    ENDIF