Changeset 332 for palm/trunk


Ignore:
Timestamp:
Jun 8, 2009 8:14:39 AM (15 years ago)
Author:
raasch
Message:

bugfix in check_parameters concerning ocean version

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_parameters.f90

    r328 r332  
    376376!-- Check ocean setting
    377377    IF ( ocean )  THEN
     378
    378379       action = ' '
    379380       IF ( timestep_scheme(1:8) == 'leapfrog' )  THEN
     
    387388          CALL message( 'check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
    388389       ENDIF
    389     ENDIF
    390 
    391 !
    392 !-- Check whether an (uncoupled) atmospheric run has been declared as an
    393 !-- ocean run (this setting is done via mrun-option -y)
    394     IF ( TRIM( coupling_mode ) == 'uncoupled'  .AND.  &
    395          TRIM( coupling_char ) == '_O' )  THEN
     390
     391    ELSEIF ( TRIM( coupling_mode ) == 'uncoupled'  .AND.  &
     392             TRIM( coupling_char ) == '_O' )  THEN
     393!
     394!--    Check whether an (uncoupled) atmospheric run has been declared as an
     395!--    ocean run (this setting is done via mrun-option -y)
    396396       message_string = 'ocean = .F. does not allow coupling_char = "' // &
    397397                        TRIM( coupling_char ) // '" set by mrun-option "-y"'
    398398       CALL message( 'check_parameters', 'PA0317', 1, 2, 0, 6, 0 )
     399
    399400    ENDIF
    400401
Note: See TracChangeset for help on using the changeset viewer.