Ignore:
Timestamp:
Mar 20, 2007 8:33:14 AM (15 years ago)
Author:
raasch
Message:

preliminary changes for radiation conditions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/calc_precipitation.f90

    r72 r73  
    7171                tend(k,j,i) = tend(k,j,i) - dqdt_precip
    7272!
    73 !--             Precipitation rate in (kg * 0.001) / m**2 / s (because 1kg
    74 !--             gives 1 mm)
     73!--             Precipitation rate in kg / m**2 / s (= mm/s)
    7574                precipitation_rate(j,i) = precipitation_rate(j,i) + &
    76                                           dqdt_precip * dzw(k) * 0.001
     75                                          dqdt_precip * dzw(k)
    7776
    7877             ENDDO
    7978!
    80 !--          Sum up the precipitation amount (unit kg * 0.001 / m**2)
     79!--          Sum up the precipitation amount, unit kg / m**2 (= mm)
    8180             IF ( intermediate_timestep_count ==         &
    8281                  intermediate_timestep_count_max  .AND. &
Note: See TracChangeset for help on using the changeset viewer.