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

palm/trunk/SOURCE/init_cloud_physics.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:
 ! -----------------
-! 
+! Removed typo
 ! 
 ! Former revisions:
@@ -117 +117 @@
     dpirho_l = 1.0_wp / pirho_l
 !
-!-- constant fot the sedimentation of cloud water (2-moment cloud physics)
+!-- constant for the sedimentation of cloud water (2-moment cloud physics)
     sed_qc_const = k_st * ( 3.0_wp / ( 4.0_wp * pi * rho_l )                   &
                           )**( 2.0_wp / 3.0_wp ) *                             &