Changeset 3311 for palm/trunk/SOURCE/ocean_mod.f90
- Timestamp:
- Oct 5, 2018 12:34:56 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/ocean_mod.f90
r3303 r3311 25 25 ! ----------------- 26 26 ! $Id$ 27 ! check if ocean mode is used for invalid combinations 28 ! 29 ! 3303 2018-10-03 12:04:15Z raasch 27 30 ! salinity allowed to be switched off 28 31 ! … … 543 546 544 547 USE control_parameters, & 545 ONLY: coupling_char, coupling_mode, message_string, use_top_fluxes 546 547 IMPLICIT NONE 548 548 ONLY: coupling_char, coupling_mode, initializing_actions, & 549 message_string, use_top_fluxes 550 551 USE pmc_interface, & 552 ONLY: nested_run 553 554 IMPLICIT NONE 555 556 557 ! 558 !-- Check for invalid combinations 559 IF ( nested_run ) THEN 560 message_string = 'ocean mode not allowed for nesting' 561 CALL message( 'ocean_check_parameters', 'PA0510', 1, 2, 0, 6, 0 ) 562 ENDIF 563 564 IF ( TRIM( initializing_actions ) == 'cyclic_fill' ) THEN 565 message_string = 'ocean mode does not allow cyclic-fill initialization' 566 CALL message( 'ocean_check_parameters', 'PA0511', 1, 2, 0, 6, 0 ) 567 ENDIF 549 568 550 569 ! … … 557 576 !-- Check whether an (uncoupled) atmospheric run has been declared as an 558 577 !-- ocean run (this setting is done via palmrun-option -y) 559 message_string = 'ocean = .F. does not allow coupling_char = "' //&578 message_string = 'ocean mode does not allow coupling_char = "' // & 560 579 TRIM( coupling_char ) // '" set by palmrun-option "-y"' 561 CALL message( ' check_parameters', 'PA0317', 1, 2, 0, 6, 0 )580 CALL message( 'ocean_check_parameters', 'PA0317', 1, 2, 0, 6, 0 ) 562 581 563 582 ENDIF … … 592 611 message_string = 'salinityflux must not be set for ocean run ' // & 593 612 'without salinity' 594 CALL message( ' check_parameters', 'PA0509', 1, 2, 0, 6, 0 )613 CALL message( 'ocean_check_parameters', 'PA0509', 1, 2, 0, 6, 0 ) 595 614 ENDIF 596 615 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.