Ignore:
Timestamp:
Nov 13, 2017 2:04:26 PM (4 years ago)
Author:
schwenkel
Message:

Inital revision of diagnostic_quantities_mod allows unified calculation of magnus equation and saturion mixing ratio

File:
1 edited

Legend:

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

    r2606 r2608  
    2525! -----------------
    2626! $Id$
     27! Calculation of magnus equation in external module (diagnostic_quantities_mod).
     28!
     29! 2606 2017-11-10 10:36:31Z schwenkel
    2730! Changed particle box locations: center of particle box now coincides
    2831! with scalar grid point of same index.
     
    986989    USE constants,                                                             &
    987990        ONLY: pi
     991
     992    USE diagnostic_quantities_mod,                                             &
     993        ONLY:  magnus
     994
    988995
    989996    USE kinds
     
    11241131             t_int  = pt(kp,jp,ip) * ( hyp(kp) / 100000.0_wp )**0.286_wp
    11251132
    1126              e_s = 611.0_wp * EXP( l_d_rv * ( 3.6609E-3_wp - 1.0_wp / t_int ) )
    1127              e_a = q(kp,jp,ip) * hyp(kp) / ( 0.378_wp * q(kp,jp,ip) + 0.622_wp )
     1133             e_s = magnus( t_int )
     1134             e_a = q(kp,jp,ip) * hyp(kp) / ( q(kp,jp,ip) + 0.622_wp )
    11281135
    11291136             sigma   = 0.0761_wp - 0.000155_wp * ( t_int - 273.15_wp )
Note: See TracChangeset for help on using the changeset viewer.