Changeset 5041 for LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_ini.F90

Timestamp:

Jul 10, 2024, 2:57:53 PM (4 months ago)

Author:

aborella

Message:

Added capa_cond_cirrus tuning parameter

File:

• LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_ini.F90 (modified) (3 diffs)

LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_ini.F90

@@ -154 +154 @@
   INTEGER, SAVE, PROTECTED :: iflag_cloud_sublim_pdf=3       ! iflag for the distribution of water inside ice clouds
   !$OMP THREADPRIVATE(iflag_cloud_sublim_pdf)
+
+  REAL, SAVE, PROTECTED :: capa_cond_cirrus=1.               ! [-] capacitance factor for growth/sublimation of ice crystals in cirrus clouds
+  !$OMP THREADPRIVATE(capa_cond_cirrus)
 
   REAL, SAVE, PROTECTED :: mu_subl_pdf_lscp=1./3.            ! [-] shape factor of the gamma distribution of water inside ice clouds
@@ -389 +392 @@
     CALL getin_p('ok_weibull_warm_clouds',ok_weibull_warm_clouds)
     CALL getin_p('iflag_cloud_sublim_pdf',iflag_cloud_sublim_pdf)
+    CALL getin_p('capa_cond_cirrus',capa_cond_cirrus)
     CALL getin_p('mu_subl_pdf_lscp',mu_subl_pdf_lscp)
     CALL getin_p('beta_pdf_lscp',beta_pdf_lscp)
@@ -463 +467 @@
     WRITE(lunout,*) 'lscp_ini, ok_weibull_warm_clouds:', ok_weibull_warm_clouds
     WRITE(lunout,*) 'lscp_ini, iflag_cloud_sublim_pdf:', iflag_cloud_sublim_pdf
+    WRITE(lunout,*) 'lscp_ini, capa_cond_cirrus:', capa_cond_cirrus
     WRITE(lunout,*) 'lscp_ini, mu_subl_pdf_lscp:', mu_subl_pdf_lscp
     WRITE(lunout,*) 'lscp_ini, beta_pdf_lscp:', beta_pdf_lscp