Changeset 4533

Timestamp:

May 14, 2020 2:46:46 PM (4 years ago)

Author:

schwenkel

Message:

Reformat intrinsic function

File:

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

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Reformat intrinsic function
+! 
+! 4532 2020-05-14 13:41:35Z schwenkel
 ! Calculate mean droplet radius assuming gamma distibution for condensation
 ! 
@@ -4473 +4476 @@
 !--             following (Seifert and Beheng, 2006, Kogan and Khairoutdinov, 2000,
 !--             Seifert and Stevens, 2010)
-                rc = MAX( alpha_rc  * gamma(nu + 1.33_wp) / gamma(nu + 1.0_wp) *                   &
+                rc = MAX( alpha_rc  * GAMMA(nu + 1.33_wp) / GAMMA(nu + 1.0_wp) *                   &
                         ( 3.0_wp * qc(k,j,i) /                                                     &
                                    ( 4.0_wp * pi * rho_l  * ( nu + 2.0_wp ) * nc(k,j,i) )          &
@@ -4562 +4565 @@
 !--       in Seifert and Stevens, 2010 ) is switched off. Minimum radius is set to 1µm following
 !--       (Seifert and Beheng, 2006, Kogan and Khairoutdinov, 2000, Seifert and Stevens, 2010)
-          rc = MAX( alpha_rc  * gamma(nu + 1.33_wp) / gamma(nu + 1.0_wp) *                         &
+          rc = MAX( alpha_rc  * GAMMA(nu + 1.33_wp) / GAMMA(nu + 1.0_wp) *                         &
                ( 3.0_wp * qc(k,j,i) / ( 4.0_wp * pi * rho_l  * ( nu + 2.0_wp ) * nc(k,j,i) )       &
                )**0.33_wp, 1.0E-6_wp )