Changeset 3687 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 22, 2019 10:42:06 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3685 r3687 268 268 usm_wrd_local 269 269 270 USE user_actions_mod, & 271 ONLY: user_actions 272 273 USE user_read_restart_data_mod, & 274 ONLY: user_rrd_global, & 275 user_rrd_local 276 277 USE user_write_restart_data_mod, & 278 ONLY: user_wrd_global, & 279 user_wrd_local 270 USE user, & 271 ONLY: user_parin, & 272 user_check_parameters, & 273 user_check_data_output_pr, & 274 user_check_data_output, & 275 user_init, & 276 user_header, & 277 user_actions, & 278 user_3d_data_averaging, & 279 user_data_output_2d, & 280 user_data_output_3d, & 281 user_statistics, & 282 user_rrd_global, & 283 user_rrd_local, & 284 user_wrd_global, & 285 user_wrd_local, & 286 user_last_actions 280 287 281 288 USE virtual_measurement_mod, & … … 302 309 module_interface_check_data_output_pr, & 303 310 module_interface_check_data_output, & 311 module_interface_init_masks, & 304 312 module_interface_define_netcdf_grid, & 305 313 module_interface_init_arrays, & … … 315 323 module_interface_wrd_global, & 316 324 module_interface_rrd_local, & 317 module_interface_wrd_local 325 module_interface_wrd_local, & 326 module_interface_last_actions 318 327 319 328 … … 333 342 MODULE PROCEDURE module_interface_check_data_output 334 343 END INTERFACE module_interface_check_data_output 344 345 INTERFACE module_interface_init_masks 346 MODULE PROCEDURE module_interface_init_masks 347 END INTERFACE module_interface_init_masks 335 348 336 349 INTERFACE module_interface_define_netcdf_grid … … 390 403 MODULE PROCEDURE module_interface_wrd_local 391 404 END INTERFACE module_interface_wrd_local 405 406 INTERFACE module_interface_last_actions 407 MODULE PROCEDURE module_interface_last_actions 408 END INTERFACE module_interface_last_actions 392 409 393 410 … … 499 516 ENDIF 500 517 501 IF ( unit == 'illegal' ) THEN518 IF ( unit == 'illegal' .AND. radiation ) THEN 502 519 CALL radiation_check_data_output_pr( variable, var_count, unit, dopr_unit ) 503 520 ENDIF … … 557 574 ENDIF 558 575 559 IF ( unit == 'illegal' ) THEN576 IF ( unit == 'illegal' .AND. radiation ) THEN 560 577 CALL radiation_check_data_output( variable, unit, i, ilen, k ) 561 578 ENDIF … … 577 594 578 595 END SUBROUTINE module_interface_check_data_output 596 597 598 !------------------------------------------------------------------------------! 599 ! 600 ! Description: 601 ! ------------ 602 !> Interface for init_masks. ToDo: get rid of these redundant calls! 603 !------------------------------------------------------------------------------! 604 SUBROUTINE module_interface_init_masks( variable, unit ) 605 606 607 CHARACTER (LEN=*), INTENT(IN) :: variable !< variable name 608 CHARACTER (LEN=*), INTENT(INOUT) :: unit !< physical unit of variable 609 610 IF ( unit == 'illegal' .AND. air_chemistry & 611 .AND. (variable(1:3) == 'kc_' .OR. variable(1:3) == 'em_') ) THEN ! ToDo: remove aditional conditions 612 CALL chem_check_data_output( variable, unit, 0, 0, 0 ) 613 ENDIF 614 615 IF ( unit == 'illegal' .AND. radiation ) THEN 616 CALL radiation_check_data_output( variable, unit, 0, 0, 0 ) 617 ENDIF 618 619 IF ( unit == 'illegal' .AND. salsa ) THEN 620 CALL salsa_check_data_output( variable, unit ) 621 ENDIF 622 623 IF ( unit == 'illegal' ) THEN 624 unit = '' 625 CALL user_check_data_output( variable, unit ) 626 ENDIF 627 628 629 END SUBROUTINE module_interface_init_masks 579 630 580 631 … … 650 701 IF ( wind_turbine ) CALL wtm_init 651 702 IF ( radiation ) CALL radiation_init 703 CALL user_init 652 704 653 705 … … 1142 1194 1143 1195 1196 !------------------------------------------------------------------------------! 1197 ! Description: 1198 ! ------------ 1199 !> Perform module-specific last actions before the program terminates 1200 !------------------------------------------------------------------------------! 1201 SUBROUTINE module_interface_last_actions 1202 1203 1204 CALL user_last_actions ! ToDo: make user module switch 1205 1206 1207 END SUBROUTINE module_interface_last_actions 1208 1209 1144 1210 END MODULE module_interface
Note: See TracChangeset
for help on using the changeset viewer.