Changeset 5626 for LMDZ6/branches/contrails/libf/phylmd/phyetat0_mod.f90

Timestamp:

Apr 23, 2025, 10:51:22 AM (7 weeks ago)

Author:

aborella

Message:

Corrections coupling with convective clouds

File:

• LMDZ6/branches/contrails/libf/phylmd/phyetat0_mod.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/phyetat0_mod.f90

@@ -18 +18 @@
   USE surface_data,     ONLY : type_ocean, version_ocean
   USE phyetat0_get_mod, ONLY : phyetat0_get, phyetat0_srf
-  USE phys_state_var_mod, ONLY : ancien_ok, cwcon, clwcon, detr_therm, phys_tstep, &
+  USE phys_state_var_mod, ONLY : ancien_ok, clwcon, detr_therm, phys_tstep, &
        qsol, fevap, z0m, z0h, agesno, &
        du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &
        falb_dir, falb_dif, prw_ancien, prlw_ancien, prsw_ancien, prbsw_ancien, &
        ftsol, pbl_tke, pctsrf, q_ancien, ql_ancien, qs_ancien, qbs_ancien, &
-       cf_ancien, qvc_ancien, cfa_ancien, pcf_ancien, qva_ancien, qia_ancien, &
+       cf_ancien, qvc_ancien, qvcon, qccon, cfa_ancien, pcf_ancien, qva_ancien, qia_ancien, &
        radpas, radsol, rain_fall, &
        ratqs, rnebcon, rugoro, sig1, snow_fall, bs_fall, solaire_etat0, sollw, sollwdown, &
@@ -416 +416 @@
     ancien_ok=ancien_ok.AND.phyetat0_get(cf_ancien,"CFANCIEN","CFANCIEN",0.)
     ancien_ok=ancien_ok.AND.phyetat0_get(qvc_ancien,"QVCANCIEN","QVCANCIEN",0.)
-    found=phyetat0_get(cwcon,"CWCON","CWCON",0.)
+    found=phyetat0_get(qvcon,"QVCON","QVCON",0.)
+    found=phyetat0_get(qccon,"QCCON","QCCON",0.)
   ELSE
     cf_ancien(:,:)=0.