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

Timestamp:

Feb 26, 2007 12:12:32 AM (17 years ago)

Author:

raasch

Message:

new parameter use_top_fluxes, Bugfix: ddzw dimensioned 1:nzt+1

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -806 +806 @@
     ENDIF
 
-    IF ( surface_heatflux == 9999999.9 )  constant_heatflux = .FALSE.
-    IF ( top_heatflux     == 9999999.9 )  THEN
-       constant_top_heatflux = .FALSE.
-    ELSE
-       use_top_fluxes = .TRUE.    ! because this is currently the only choice
-    ENDIF
+    IF ( surface_heatflux == 9999999.9 )  constant_heatflux     = .FALSE.
+    IF ( top_heatflux     == 9999999.9 )  constant_top_heatflux = .FALSE.
 
 !