Changeset 3744 for palm/trunk/SOURCE/netcdf_interface_mod.f90
- Timestamp:
- Feb 15, 2019 6:38:58 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_interface_mod.f90
r3729 r3744 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Add indoor model 23 23 ! 24 24 ! Former revisions: … … 660 660 do2d_yz_time_count, dt_data_output_av, dt_do2d_xy, dt_do2d_xz, & 661 661 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, & 664 664 mask_size_l, mask_i, mask_i_global, mask_j, mask_j_global, & 665 665 mask_k_global, mask_surface, & … … 683 683 USE kinds 684 684 685 USE indoor_model_mod, & 686 ONLY: im_define_netcdf_grid 687 685 688 USE land_surface_model_mod, & 686 689 ONLY: lsm_define_netcdf_grid, nzb_soil, nzt_soil, nzs, zs … … 1911 1914 CALL gust_define_netcdf_grid( do3d(av,i), found, grid_x, & 1912 1915 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 ) 1913 1922 ENDIF 1914 1923
Note: See TracChangeset
for help on using the changeset viewer.