Changeset 1691 for palm/trunk/SOURCE/lpm_init.f90

Timestamp:

Oct 26, 2015 4:17:44 PM (9 years ago)

Author:

maronga

Message:

various bugfixes and modifications of the atmosphere-land-surface-radiation interaction. Completely re-written routine to calculate surface fluxes (surface_layer_fluxes.f90) that replaces prandtl_fluxes. Minor formatting corrections and renamings

File:

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

palm/trunk/SOURCE/lpm_init.f90

@@ -14 +14 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 1997-2014 Leibniz Universitaet Hannover
+! Copyright 1997-2015 Leibniz Universitaet Hannover
 !--------------------------------------------------------------------------------!
 !
 ! Current revisions:
 ! -----------------
-! 
+! Renamed prandtl_layer to constant_flux_layer.
 !
 ! Former revisions:
@@ -100 +100 @@
 
     USE control_parameters,                                                    &
-        ONLY:  cloud_droplets, current_timestep_number, dz,                    &
-               initializing_actions, message_string, netcdf_data_format,       &
-               ocean, prandtl_layer, simulated_time
+        ONLY:  cloud_droplets, constant_flux_layer, current_timestep_number,   &
+               dz, initializing_actions, message_string, netcdf_data_format,   &
+               ocean, simulated_time
 
     USE dvrp_variables,                                                        &
@@ -295 +295 @@
 !-- To obtain exact height levels of particles, linear interpolation is applied
 !-- (see lpm_advec.f90).
-    IF ( prandtl_layer )  THEN
+    IF ( constant_flux_layer )  THEN
        
        ALLOCATE ( log_z_z0(0:number_of_sublayers) )