Changeset 3657 for trunk/LMDZ.TITAN/libf/phytitan/callkeys_mod.F90

Timestamp:

Feb 27, 2025, 2:53:07 PM (5 months ago)

Author:

emoisan

Message:

Titan physics (under MESOSCALE precompiling flag):
Change initialization for microphysics model, to be consistent with
initialization for physics.
The parameters are now defined in callphys.def instead of datagcm.
The new callphys.def with all the parameters is in deftank
(callphys.def.allmuparams).
EMo

File:

• trunk/LMDZ.TITAN/libf/phytitan/callkeys_mod.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/callkeys_mod.F90

@@ -107 +107 @@
 !$OMP THREADPRIVATE(startphy_file)
 
+! for mesoscale, the following variables are defined in callphys.def
+! before, it was in the microphysics config file in datagcm (EMoi)
+#ifdef MESOSCALE
+      real,save :: rm
+      real,save :: df
+      real,save :: rho_aer
+      real,save :: fiad_min
+      real,save :: fiad_max
+      real,save :: m0as_min
+      real,save :: rcs_min
+      real,save :: m0af_min
+      real,save :: rcf_min
+      real,save :: m0n_min
+!$OMP THREADPRIVATE(rm,df,rho_aer,fiad_min,fiad_max,m0as_min,rcs_min,m0af_min,rcf_min,m0n_min)
+      logical,save :: w_h_prod
+      logical,save :: w_h_coag
+      logical,save :: w_h_sed
+      logical,save :: no_fiadero
+      logical,save :: fwsed_m0
+      logical,save :: fwsed_m3
+      logical,save :: w_c_sed
+      logical,save :: w_c_nucond
+!$OMP THREADPRIVATE(w_h_prod,w_h_coag,w_h_sed,no_fiadero,fwsed_m0,fwsed_m3,w_c_sed,w_c_nucond,mmp_w_ps2s,mmp_w_qe)
+      integer,save :: coag_choice
+!$OMP THREADPRIVATE(coag_choice)
+      character(len=100),save :: spcpath
+      character(len=100),save :: pssfile
+      character(len=100),save :: mqfile
+!$OMP THREADPRIVATE(spcpath,pssfile,mqfile)
+      logical,save :: wdebug
+!$OMP THREADPRIVATE(wdebug)
+#endif
+
 END MODULE callkeys_mod