Changeset 3648 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Jan 2, 2019 4:35:46 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r3636 r3648 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 1997-201 8Leibniz Universitaet Hannover17 ! Copyright 1997-2019 Leibniz Universitaet Hannover 18 18 !------------------------------------------------------------------------------! 19 19 ! … … 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Rename subroutines for surface-data output 28 ! 29 ! 3636 2018-12-19 13:48:34Z raasch 27 30 ! nopointer option removed 28 31 ! … … 687 690 surf_usm_h, get_topography_top_index_ji, vertical_surfaces_exist 688 691 689 USE surface_ output_mod,&690 ONLY: surface_ output_init692 USE surface_data_output_mod, & 693 ONLY: surface_data_output_init 691 694 692 695 USE transpose_indices … … 2446 2449 ! 2447 2450 !-- Initialize surface data output 2448 IF ( surface_ data_output ) THEN2449 CALL surface_ output_init2451 IF ( surface_output ) THEN 2452 CALL surface_data_output_init 2450 2453 ENDIF 2451 2454 !
Note: See TracChangeset
for help on using the changeset viewer.