Changeset 1691 for palm/trunk/SOURCE/package_parin.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/package_parin.f90 (modified) (6 diffs)

palm/trunk/SOURCE/package_parin.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:
 ! -----------------
-! 
+! Added skip_time_do_lsm, skip_time_do_radiation, and emissivity
 ! 
 ! Former revisions:
@@ -92 +92 @@
 !> This subroutine reads from the NAMELIST file variables controling model
 !> software packages which are used optionally in the run.
+!>
+!> @todo Perform all actions in the respective submodules and remove 
+!>       package_parin
 !------------------------------------------------------------------------------!
  SUBROUTINE package_parin
@@ -117 +120 @@
     USE land_surface_model_mod,                                                &
         ONLY: alpha_vangenuchten, c_surface, canopy_resistance_coefficient,    &
-              conserve_water_content, dewfall, f_shortwave_incoming,           &
-              hydraulic_conductivity, lambda_surface_stable,                   &
-              lambda_surface_unstable,                                         &
-              leaf_area_index, land_surface, l_vangenuchten,                   &
-              min_canopy_resistance, min_soil_resistance, field_capacity,      &
-              residual_moisture, saturation_moisture, wilting_point,           &
-              n_vangenuchten, root_fraction, soil_moisture, soil_temperature,  &
-              soil_type, vegetation_coverage, veg_type, z0_eb, z0h_eb, zs
+              conserve_water_content, dewfall, field_capacity,                 &
+              f_shortwave_incoming, hydraulic_conductivity,                    &
+              lambda_surface_stable, lambda_surface_unstable, leaf_area_index, &
+              land_surface, l_vangenuchten, min_canopy_resistance,             &
+              min_soil_resistance, n_vangenuchten, residual_moisture,          &
+              root_fraction, saturation_moisture, wilting_point,               &
+              skip_time_do_lsm, soil_moisture, soil_temperature, soil_type,    &
+              vegetation_coverage, veg_type, zs, z0_eb, z0h_eb
 
     USE kinds
@@ -152 +155 @@
     USE radiation_model_mod,                                                   &
         ONLY: albedo, albedo_type, albedo_lw_dif, albedo_lw_dir, albedo_sw_dif,&
-              albedo_sw_dir, day_init, constant_albedo, dt_radiation, lambda,  &
-              lw_radiation, net_radiation, radiation, radiation_scheme,        &
-              sw_radiation, time_utc_init
+              albedo_sw_dir, constant_albedo, day_init, dt_radiation,          &
+              emissivity, lambda, lw_radiation, net_radiation, radiation,      &
+              radiation_scheme, skip_time_do_radiation, sw_radiation,          &
+              time_utc_init
                 
 
@@ -200 +204 @@
                                   min_soil_resistance, n_vangenuchten,         &
                                   residual_moisture, root_fraction,            &
-                                  saturation_moisture, soil_moisture,          &
-                                  soil_temperature, soil_type,                 &
+                                  saturation_moisture, skip_time_do_lsm,       &
+                                  soil_moisture, soil_temperature, soil_type,  &
                                   vegetation_coverage, veg_type, wilting_point,& 
                                   zs, z0_eb, z0h_eb
@@ -234 +238 @@
                                   constant_albedo, day_init, dt_radiation,     &
                                   lambda, lw_radiation, net_radiation,         &
-                                  radiation_scheme, sw_radiation, time_utc_init 
+                                  radiation_scheme, skip_time_do_radiation,    &
+                                  sw_radiation, time_utc_init 
 
     NAMELIST /spectra_par/        averaging_interval_sp, comp_spectra_level,   &