Changeset 5202 for LMDZ6/branches/cirrus/libf/phylmd/StratAer/strataer_nuc_mod.F90

Timestamp:

Sep 20, 2024, 12:32:04 PM (8 weeks ago)

Author:

Laurent Fairhead

Message:

Updating cirrus branch to trunk revision 5171

Location:

LMDZ6/branches/cirrus

Files:

• . (modified) (1 prop)
• libf/phylmd/StratAer/strataer_nuc_mod.F90 (modified) (2 diffs)

LMDZ6/branches/cirrus/libf/phylmd/StratAer/strataer_nuc_mod.F90

@@ -13 +13 @@
     USE print_control_mod, ONLY : lunout
     USE mod_phys_lmdz_para, ONLY : is_master
-    USE strataer_local_var_mod, ONLY: flag_nuc_rate_box,nuclat_min,nuclat_max,nucpres_min,nucpres_max
+    USE strataer_local_var_mod, ONLY: ALPH2SO4,flag_nuc_rate_box,nuclat_min,nuclat_max, &
+         nucpres_min,nucpres_max
     
     !Config Key  = flag_nuc_rate_box
@@ -30 +31 @@
     CALL getin_p('nucpres_max',nucpres_max)
     
+    ! Read argument H2SO4 accommodation  coefficient [condensation/evaporation]
+    CALL getin_p('alph2so4',ALPH2SO4)
+    
     !============= Print params =============
     IF (is_master) THEN
+       WRITE(lunout,*) 'IN STRATAER_NUC : ALPH2SO4 = ',alph2so4
        WRITE(lunout,*) 'IN STRATAER_NUC : flag_nuc_rate_box = ',flag_nuc_rate_box
        IF (flag_nuc_rate_box) THEN