Changeset 2271 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Jun 9, 2017 12:34:55 PM (7 years ago)

Author:

sward

Message:

error messages and numbers updated

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! roughness-length check altered
+! Error messages fixed
+! 
+! 2270 2017-06-09 12:18:47Z maronga
 ! Revised numbering (removed 2 timeseries)
 ! 
@@ -723 +727 @@
              WRITE( message_string, * ) 'coupling mode "',                     &
                    TRIM( coupling_mode ),                                      &
-             '": nx+1 in ocean is not divisible without remainder with nx+1 in', & 
-             ' atmosphere'
+             '": nx+1 in ocean is not divisible by nx+1 in', & 
+             ' atmosphere without remainder'
              CALL message( 'check_parameters', 'PA0339', 1, 2, 0, 6, 0 )
           ENDIF
@@ -731 +735 @@
              WRITE( message_string, * ) 'coupling mode "',                     &
                    TRIM( coupling_mode ),                                      &
-             '": ny+1 in ocean is not divisible without remainder with ny+1 in', & 
-             ' atmosphere'
+             '": ny+1 in ocean is not divisible by ny+1 in', & 
+             ' atmosphere without remainder'
+
              CALL message( 'check_parameters', 'PA0340', 1, 2, 0, 6, 0 )
           ENDIF
@@ -1183 +1188 @@
          conserve_volume_flow ) THEN
          message_string = 'initializing_actions = "initialize_vortex"' //      &
-                        ' ist not allowed with conserve_volume_flow = .T.'
+                        ' is not allowed with conserve_volume_flow = .T.'
        CALL message( 'check_parameters', 'PA0343', 1, 2, 0, 6, 0 )
     ENDIF       
@@ -3976 +3981 @@
     IF ( ( constant_flux_layer .OR.  &
            INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 ) &
-         .AND. roughness_length > 0.5 * dz )  THEN
+         .AND. roughness_length >= 0.5 * dz )  THEN
        message_string = 'roughness_length must be smaller than dz/2'
        CALL message( 'check_parameters', 'PA0424', 1, 2, 0, 6, 0 )