Changeset 3700 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 26, 2019 5:03:42 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3687 r3700 216 216 radiation_parin, & 217 217 radiation_check_parameters, & 218 radiation_check_data_output_ts, & 218 219 radiation_check_data_output_pr, & 219 220 radiation_check_data_output, & … … 271 272 ONLY: user_parin, & 272 273 user_check_parameters, & 274 user_check_data_output_ts, & 273 275 user_check_data_output_pr, & 274 276 user_check_data_output, & … … 307 309 module_interface_parin, & 308 310 module_interface_check_parameters, & 311 module_interface_check_data_output_ts, & 309 312 module_interface_check_data_output_pr, & 310 313 module_interface_check_data_output, & … … 334 337 MODULE PROCEDURE module_interface_check_parameters 335 338 END INTERFACE module_interface_check_parameters 339 340 INTERFACE module_interface_check_data_output_ts 341 MODULE PROCEDURE module_interface_check_data_output_ts 342 END INTERFACE module_interface_check_data_output_ts 336 343 337 344 INTERFACE module_interface_check_data_output_pr … … 481 488 ! Description: 482 489 ! ------------ 490 !> Check module-specific data output of timeseries 491 !------------------------------------------------------------------------------! 492 SUBROUTINE module_interface_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit ) 493 494 495 INTEGER(iwp), INTENT(IN) :: dots_max !< variable output array index 496 INTEGER(iwp), INTENT(INOUT) :: dots_num !< variable output array index 497 CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT) :: dots_label 498 CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT) :: dots_unit 499 500 501 IF ( radiation ) THEN 502 CALL radiation_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit ) 503 ENDIF 504 505 CALL user_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit ) 506 507 508 END SUBROUTINE module_interface_check_data_output_ts 509 510 511 !------------------------------------------------------------------------------! 512 ! Description: 513 ! ------------ 483 514 !> Check module-specific data output of profiles 484 515 !------------------------------------------------------------------------------! … … 522 553 IF ( unit == 'illegal' ) THEN 523 554 unit = '' ! ToDo: Seems like a hack. Find a general soultion! 524 CALL user_check_data_output_pr( variable, var_count, unit )555 CALL user_check_data_output_pr( variable, var_count, unit, dopr_unit ) 525 556 ENDIF 526 557
Note: See TracChangeset
for help on using the changeset viewer.