Changeset 2601 for palm

Timestamp:

Nov 2, 2017 4:22:46 PM (6 years ago)

Author:

scharf

Message:

added emissivity to radiation namelist

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! added emissivity to namelist
+! 
+! 2575 2017-10-24 09:57:58Z maronga
 ! Bugfix: calculation of shortwave and longwave albedos for RRTMG swapped
 ! 
@@ -316 +319 @@
     REAL(wp), DIMENSION(:,:), ALLOCATABLE :: &
                 alpha,                       & !< surface broadband albedo (used for clear-sky scheme)
-                emis,                        & !< surface broadband emissitivity
+                emis,                        & !< surface broadband emissivity
                 rad_lw_out_change_0,         & !< change in LW out due to change in surface temperature
                 rad_net,                     & !< net radiation at the surface
@@ -1402 +1405 @@
        NAMELIST /radiation_par/   albedo, albedo_type, albedo_lw_dir,          &
                                   albedo_lw_dif, albedo_sw_dir, albedo_sw_dif, &
-                                  constant_albedo, dt_radiation,               &
+                                  constant_albedo, dt_radiation, emissivity,   &
                                   lw_radiation, net_radiation,                 &
                                   radiation_scheme, skip_time_do_radiation,    &