Changeset 6005 for LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

Timestamp:

Jan 7, 2026, 8:20:00 PM (2 weeks ago)

Author:

evignon

Message:

poursuite du travail sur ratqs avec des efforts de replayisation

File:

• LMDZ6/trunk/libf/phylmd/conf_phys_m.f90 (modified) (10 diffs)

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -15 +15 @@
        callstats,&
        solarlong0,seuil_inversion, &
-       fact_cldcon, facttemps,ok_newmicro,iflag_radia,&
+       fact_cldcon,facttemps,ok_newmicro,iflag_radia,&
        iflag_cld_th, &
-       ratqsbas,ratqshaut,tau_ratqs, &
        ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, flag_volc_surfstrat, aerosol_couple, &
        chemistry_couple, flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
@@ -86 +85 @@
     LOGICAL              :: flag_bc_internal_mixture
     REAL                 :: bl95_b0, bl95_b1
-    REAL                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut,tau_ratqs
+    REAL                 :: fact_cldcon,facttemps
     INTEGER              :: iflag_cld_th
      
@@ -117 +116 @@
     REAL,SAVE           :: freq_ISCCP_omp, ecrit_ISCCP_omp
     REAL,SAVE           :: freq_COSP_omp, freq_AIRS_omp 
-    REAL,SAVE           :: fact_cldcon_omp, facttemps_omp,ratqsbas_omp
+    REAL,SAVE           :: fact_cldcon_omp,facttemps_omp
     REAL,SAVE           :: tau_cld_cv_omp, coefw_cld_cv_omp
     INTEGER, SAVE       :: iflag_cld_cv_omp
 
-    REAL, SAVE          :: ratqshaut_omp
-    REAL, SAVE          :: tau_ratqs_omp
     REAL, SAVE          :: t_coupl_omp
     INTEGER, SAVE       :: iflag_radia_omp
@@ -130 +127 @@
     INTEGER, SAVE       :: NSW_omp
     INTEGER, SAVE       :: iflag_cld_th_omp, ip_ebil_phy_omp
-    INTEGER, SAVE       :: iflag_ratqs_omp
 
     REAL, SAVE          :: f_cdrag_ter_omp,f_cdrag_oce_omp
@@ -1265 +1261 @@
     CALL getin('iflag_clw',iflag_clw_omp)
     
-
-    !Config Key  = iflag_ratqs
-    !Config Desc =
-    !Config Def  = 1
-    !Config Help =
-    !
-    iflag_ratqs_omp = 1
-    CALL getin('iflag_ratqs',iflag_ratqs_omp)
-
     !
     !Config Key  = iflag_radia 
@@ -1376 +1363 @@
     CALL getin('coefw_cld_cv',coefw_cld_cv_omp)
 
-
-
-
     !
     !Config Key  = fact_cldcon
@@ -1405 +1389 @@
     ok_newmicro_omp = .TRUE.
     CALL getin('ok_newmicro',ok_newmicro_omp)
-    !
-    !Config Key  = ratqsbas
-    !Config Desc =  
-    !Config Def  = 0.01
-    !Config Help = 
-    !
-    ratqsbas_omp = 0.01
-    CALL getin('ratqsbas',ratqsbas_omp)
-    !
-    !Config Key  = ratqshaut
-    !Config Desc =  
-    !Config Def  = 0.3
-    !Config Help = 
-    !
-    ratqshaut_omp = 0.3
-    CALL getin('ratqshaut',ratqshaut_omp)
-
-    !Config Key  = tau_ratqs
-    !Config Desc =  
-    !Config Def  = 1800.
-    !Config Help = 
-    !
-    tau_ratqs_omp = 1800.
-    CALL getin('tau_ratqs',tau_ratqs_omp)
-
     !
     !-----------------------------------------------------------------------
@@ -2629 +2588 @@
     bl95_b0 = bl95_b0_omp
     bl95_b1 = bl95_b1_omp
+    facttemps = facttemps_omp
     fact_cldcon = fact_cldcon_omp
-    facttemps = facttemps_omp
-    ratqsbas = ratqsbas_omp
-    ratqshaut = ratqshaut_omp
-    tau_ratqs = tau_ratqs_omp
-
     iflag_radia = iflag_radia_omp
     iflag_rrtm = iflag_rrtm_omp
@@ -2644 +2599 @@
     tau_cld_cv = tau_cld_cv_omp
     coefw_cld_cv = coefw_cld_cv_omp
-    iflag_ratqs = iflag_ratqs_omp
     ip_ebil_phy = ip_ebil_phy_omp
     iflag_thermals = iflag_thermals_omp
@@ -2960 +2914 @@
     WRITE(lunout,*) ' iflag_albedo = ', iflag_albedo !albedo SB
     WRITE(lunout,*) ' ok_chlorophyll =',ok_chlorophyll ! albedo SB
-    WRITE(lunout,*) ' iflag_ratqs = ', iflag_ratqs
     WRITE(lunout,*) ' seuil_inversion = ', seuil_inversion
     WRITE(lunout,*) ' fact_cldcon = ', fact_cldcon
     WRITE(lunout,*) ' facttemps = ', facttemps
     WRITE(lunout,*) ' ok_newmicro = ',ok_newmicro 
-    WRITE(lunout,*) ' ratqsbas = ',ratqsbas 
-    WRITE(lunout,*) ' ratqshaut = ',ratqshaut 
-    WRITE(lunout,*) ' tau_ratqs = ',tau_ratqs 
     WRITE(lunout,*) ' top_height = ',top_height 
     WRITE(lunout,*) ' rad_froid = ',rad_froid