Changeset 3648 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 2, 2019 4:35:46 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3641 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 ! 3641 2018-12-23 22:10:01Z knoop 27 30 ! Initial implementation of the PALM module interface 28 31 ! … … 53 56 plant_canopy, & 54 57 salsa, & 55 surface_ data_output,&58 surface_output, & 56 59 syn_turb_gen, & 57 60 urban_surface, & … … 204 207 spectra_header 205 208 206 USE surface_ output_mod,&207 ONLY: surface_ output_parin,&208 surface_ output_check_parameters209 USE surface_data_output_mod, & 210 ONLY: surface_data_output_parin, & 211 surface_data_output_check_parameters 209 212 210 213 USE synthetic_turbulence_generator_mod, & … … 368 371 CALL salsa_parin 369 372 CALL spectra_parin 370 CALL surface_ output_parin373 CALL surface_data_output_parin 371 374 CALL stg_parin 372 375 CALL user_parin ! ToDo: make user code a single Fortran module … … 401 404 IF ( salsa ) CALL salsa_check_parameters 402 405 IF ( calculate_spectra ) CALL spectra_check_parameters 403 IF ( surface_ data_output ) CALL surface_output_check_parameters406 IF ( surface_output ) CALL surface_data_output_check_parameters 404 407 IF ( syn_turb_gen ) CALL stg_check_parameters 405 408 IF ( urban_surface ) CALL usm_check_parameters
Note: See TracChangeset
for help on using the changeset viewer.