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

Timestamp:

Jul 30, 2007 10:49:46 AM (17 years ago)

Author:

raasch

Message:

further preliminary changes concerning coupling

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (1 diff)

palm/trunk/SOURCE/check_parameters.f90

@@ -1083 +1083 @@
     IF ( surface_heatflux == 9999999.9 )  constant_heatflux     = .FALSE.
     IF ( top_heatflux     == 9999999.9 )  constant_top_heatflux = .FALSE.
+    IF ( top_momentumflux_u /= 9999999.9  .AND.  &
+         top_momentumflux_v /= 9999999.9 )  THEN
+       constant_top_momentumflux = .TRUE.
+    ELSEIF (  .NOT. ( top_momentumflux_u == 9999999.9  .AND.  &
+           top_momentumflux_v == 9999999.9 ) )  THEN   
+       IF ( myid == 0 )  THEN
+          PRINT*, '+++ check_parameters:'
+          PRINT*, '    both, top_momentumflux_u AND top_momentumflux_v'
+          PRINT*, '    must be set'
+       ENDIF
+       CALL local_stop
+    ENDIF
 
 !