Changeset 5559 for LMDZ6/trunk/libf/phylmd/StratAer/miecalc_aer.f90

Timestamp:

Feb 24, 2025, 3:39:32 PM (11 hours ago)

Author:

lebasn

Message:

StratAer?: clean duplicated module loading, specify loading vars from module + variable initialisation for debug mode.

File:

• LMDZ6/trunk/libf/phylmd/StratAer/miecalc_aer.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/StratAer/miecalc_aer.f90

@@ -227 +227 @@
     50000.000,    0.2000,   1.49800,   1.0000E-08 /), (/nb_lambda_h2so4,4/), order=(/2,1/) )
      
+    ! init
+    piz_bin(:,:)=0.0
+    alpha_bin(:,:)=0.0
+    cg_bin(:,:)=0.0
+    
     !--compute particle radius for a composition of 75% H2SO4 / 25% H2O at T=293K
     DO bin_number=1, nbtr_bin
@@ -332 +337 @@
 
       DO bin=1, Nbin !---loop on size bins
-
+      
       r_lower=exp(log(rmin)+FLOAT(bin-1)/FLOAT(Nbin)*(log(rmax)-log(rmin)))
       r_upper=exp(log(rmin)+FLOAT(bin)/FLOAT(Nbin)*(log(rmax)-log(rmin)))