Changeset 73 for palm/trunk/SOURCE/calc_precipitation.f90

Timestamp:

Mar 20, 2007 8:33:14 AM (17 years ago)

Author:

raasch

Message:

preliminary changes for radiation conditions

File:

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

palm/trunk/SOURCE/calc_precipitation.f90

@@ -71 +71 @@
                 tend(k,j,i) = tend(k,j,i) - dqdt_precip
 !
-!--             Precipitation rate in (kg * 0.001) / m**2 / s (because 1kg
-!--             gives 1 mm)
+!--             Precipitation rate in kg / m**2 / s (= mm/s)
                 precipitation_rate(j,i) = precipitation_rate(j,i) + &
-                                          dqdt_precip * dzw(k) * 0.001
+                                          dqdt_precip * dzw(k)
 
              ENDDO
 !
-!--          Sum up the precipitation amount (unit kg * 0.001 / m**2)
+!--          Sum up the precipitation amount, unit kg / m**2 (= mm)
              IF ( intermediate_timestep_count ==         &
                   intermediate_timestep_count_max  .AND. &