Changeset 4714 for palm/trunk/UTIL/inifor/src/inifor_grid.f90
- Timestamp:
- Sep 29, 2020 12:47:35 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/src/inifor_grid.f90
r4675 r4714 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Minor logging corrections 29 ! 30 ! 31 ! 4675 2020-09-11 10:00:26Z eckhard 28 32 ! Support for profile initialization of soil and for homogeneous (profile) 29 33 ! boundary conditions, including respective command-line options … … 516 520 CALL validate_config( cfg ) 517 521 518 CALL report('setup_parameters', "atmosphere initialization mode: " // TRIM(cfg%ic_mode)) 519 CALL report('setup_parameters', " soil initialization mode: " // TRIM(cfg%isc_mode)) 520 CALL report('setup_parameters', " forcing mode: " // TRIM(cfg%bc_mode)) 521 CALL report('setup_parameters', " averaging mode: " // TRIM(cfg%averaging_mode)) 522 CALL report('setup_parameters', " averaging angle: " // real_to_str(cfg%averaging_angle)) 523 CALL report('setup_parameters', " averaging angle: " // real_to_str(cfg%averaging_angle)) 524 CALL report('setup_parameters', " data path: " // TRIM(cfg%input_path)) 525 CALL report('setup_parameters', " hhl file: " // TRIM(cfg%hhl_file)) 526 CALL report('setup_parameters', " soiltyp file: " // TRIM(cfg%soiltyp_file)) 527 CALL report('setup_parameters', " namelist file: " // TRIM(cfg%namelist_file)) 528 CALL report('setup_parameters', " output data file: " // TRIM(output_file%name)) 522 CALL report('setup_parameters', "atmosphere initialization mode: " // TRIM( cfg%ic_mode ) ) 523 CALL report('setup_parameters', " soil initialization mode: " // TRIM( cfg%isc_mode ) ) 524 CALL report('setup_parameters', " forcing mode: " // TRIM( cfg%bc_mode ) ) 525 CALL report('setup_parameters', " averaging mode: " // TRIM( cfg%averaging_mode ) ) 526 CALL report('setup_parameters', " averaging angle: " // TRIM( real_to_str( cfg%averaging_angle ) )// " deg" ) 527 CALL report('setup_parameters', " data path: " // TRIM( cfg%input_path ) ) 528 CALL report('setup_parameters', " hhl file: " // TRIM( cfg%hhl_file ) ) 529 CALL report('setup_parameters', " soiltyp file: " // TRIM( cfg%soiltyp_file ) ) 530 CALL report('setup_parameters', " namelist file: " // TRIM( cfg%namelist_file ) ) 531 CALL report('setup_parameters', " output data file: " // TRIM( output_file%name ) ) 529 532 IF (cfg%process_precipitation ) THEN 530 CALL report('setup_parameters', " precipitation: enabled")533 CALL report('setup_parameters', " precipitation: enabled" ) 531 534 ELSE 532 CALL report('setup_parameters', " precipitation: disabled")535 CALL report('setup_parameters', " precipitation: disabled" ) 533 536 ENDIF 534 IF (cfg%debug ) CALL report('setup_parameters', " debugging mode: enabled" )537 IF (cfg%debug ) CALL report('setup_parameters', " debugging mode: enabled" ) 535 538 536 539 CALL log_runtime('time', 'init') … … 1664 1667 message = "Averaging grid kind '" // TRIM(avg_grid%kind) // & 1665 1668 "' is not supported. Use 'scalar', 'u', or 'v'." 1666 CALL inifor_abort(' get_latlon_averaging_region', message)1669 CALL inifor_abort('init_averaging_grid', message) 1667 1670 1668 1671 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.