Changeset 2250 for palm


Ignore:
Timestamp:
Jun 6, 2017 3:07:12 PM (7 years ago)
Author:
Giersch
Message:

Doxygen comment added

File:
1 edited

Legend:

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

    r2249 r2250  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Doxygen comment added
    2323!
    2424! Former revisions:
     
    549549!
    550550!-- Check the coupling mode
    551     IF ( coupling_mode /= 'uncoupled'            .AND.  &
    552          coupling_mode /= 'atmosphere_to_ocean'  .AND.  &
    553          coupling_mode /= 'ocean_to_atmosphere' )  THEN
     551!> @todo Check if any queries for other coupling modes (e.g. precursor_ocean) are missing
     552    IF ( coupling_mode /= 'uncoupled'            .AND.  & 
     553         coupling_mode /= 'atmosphere_to_ocean'  .AND.  & 
     554         coupling_mode /= 'ocean_to_atmosphere' )  THEN     
    554555       message_string = 'illegal coupling mode: ' // TRIM( coupling_mode )
    555556       CALL message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 )
     
    697698             WRITE( message_string, * ) 'coupling mode "',                     &
    698699                    TRIM( coupling_mode ),                                     &
    699                  '": dy in Atmosphere is not equal to or not larger then dy in ocean'
     700                 '": dy in Atmosphere is not equal to or not larger than dy in ocean'
    700701             CALL message( 'check_parameters', 'PA0011', 1, 2, 0, 6, 0 )
    701702          ENDIF
Note: See TracChangeset for help on using the changeset viewer.