change parameters to variables in module_mp_thompson_make_number_conc…

…entrations.F90 due to passing in PI as variable
ufs-community · Feb 28, 2024 · 8718420 · 8718420
1 parent 716abb6
commit 8718420
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/physics/MP/Thompson/module_mp_thompson_make_number_concentrations.F90 b/physics/MP/Thompson/module_mp_thompson_make_number_concentrations.F90
@@ -137,13 +137,15 @@ elemental real function make_DropletNumber (Q_cloud, qnwfa)
       real, intent(in):: Q_cloud, qnwfa
 
       !real, parameter:: PI = 3.1415926536
-      real, parameter:: am_r = PI*1000./6.
+      real :: am_r
       real, dimension(15), parameter:: g_ratio = (/24,60,120,210,336,   &
      &                504,720,990,1320,1716,2184,2730,3360,4080,4896/)
       double precision:: lambda, qnc
       real:: q_nwfa, x1, xDc
       integer:: nu_c
 
+      am_r = PI*1000./6.
+
       if (Q_cloud == 0) then
          make_DropletNumber = 0
          return
@@ -176,7 +178,9 @@ elemental real function make_RainNumber (Q_rain, temp)
       real, intent(in):: Q_rain, temp
       double precision:: lambda, N0, qnr
       !real, parameter:: PI = 3.1415926536
-      real, parameter:: am_r = PI*1000./6.
+      real :: am_r
+
+      am_r = PI*1000./6.
 
       if (Q_rain == 0) then
          make_RainNumber = 0