Changeset 2250 for palm

Timestamp:

Jun 6, 2017 3:07:12 PM (7 years ago)

Author:

Giersch

Message:

Doxygen comment added

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Doxygen comment added 
 ! 
 ! Former revisions:
@@ -549 +549 @@
 !
 !-- Check the coupling mode
-    IF ( coupling_mode /= 'uncoupled'            .AND.  &
-         coupling_mode /= 'atmosphere_to_ocean'  .AND.  &
-         coupling_mode /= 'ocean_to_atmosphere' )  THEN
+!> @todo Check if any queries for other coupling modes (e.g. precursor_ocean) are missing
+    IF ( coupling_mode /= 'uncoupled'            .AND.  &  
+         coupling_mode /= 'atmosphere_to_ocean'  .AND.  &  
+         coupling_mode /= 'ocean_to_atmosphere' )  THEN      
        message_string = 'illegal coupling mode: ' // TRIM( coupling_mode )
        CALL message( 'check_parameters', 'PA0002', 1, 2, 0, 6, 0 )
@@ -697 +698 @@
              WRITE( message_string, * ) 'coupling mode "',                     &
                     TRIM( coupling_mode ),                                     &
-                 '": dy in Atmosphere is not equal to or not larger then dy in ocean'
+                 '": dy in Atmosphere is not equal to or not larger than dy in ocean'
              CALL message( 'check_parameters', 'PA0011', 1, 2, 0, 6, 0 )
           ENDIF