Changeset 6099 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Mar 12, 2026, 2:28:36 PM (4 weeks ago)

Author:

fhourdin

Message:

phylmdiso compil. + sep init/compute in physiq_mod

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -306 +306 @@
          cldh, cldl,cldm, cldq, cldt,      &
          JrNt,                             &
-         dthmin, evap, snowerosion, icesub_ice, icemelt_ice, fder, plcl, plfc,   &
+         evap, snowerosion, icesub_ice, icemelt_ice, fder, plcl, plfc,   &
 
          prw, prlw, prsw, prbsw, water_budget,         &
@@ -312 +312 @@
          cdragm, cdragh,                   &
          zustar, zu10m, zv10m, rh2m, qsat2m, &
-         zq2m, zt2m, zn2mout, weak_inversion, &
+         zq2m, zt2m, zn2mout, &
                                 !
          s_pblh_x, s_pblh_w, &
@@ -547 +547 @@
     PARAMETER (ok_region=.FALSE.)
     !======================================================================
-    REAL seuil_inversion
-    SAVE seuil_inversion
-    !$OMP THREADPRIVATE(seuil_inversion)
-
-
 
     real facteur
@@ -1221 +1216 @@
     !======================================================================!
     if (debut) then                                                        !
-       print*,'DEBUT PHYSIQ_MOD TRAVAIL DEBUT 1'
+       print*,'DEBUT PHYSIQ_MOD TRAVAIL DEBUT 2'
        iflag_physiq=0
        call getin_p('iflag_physiq', iflag_physiq)                          !
@@ -1309 +1304 @@
             ok_LES, &
             callstats, &
-            solarlong0,seuil_inversion, &
+            solarlong0, &
             fact_cldcon,facttemps,ok_newmicro,iflag_radia, &
             iflag_cld_th, &
@@ -3568 +3563 @@
     !===================================================================
     !
-    CALL stratocu_if(klon,klev,pctsrf,paprs, pplay,t_seri &
-         ,seuil_inversion,weak_inversion,dthmin)
-
 
 
@@ -3677 +3669 @@
           !>jyg
           CALL calltherm(itap, pdtphys &
-               ,pplay,paprs,pphi,weak_inversion &
+               ,pplay,paprs,pphi &
                                 ! ,u_seri,v_seri,t_seri,q_seri,zqsat,debut & !jyg
                ,u_therm,v_therm,t_therm,q_therm,t_env,q_env,zqsat,debut &  !jyg