Changeset 4168 for trunk/LMDZ.GENERIC/libf/phygeneric/physiq_mod.F90

Timestamp:

Apr 2, 2026, 3:46:30 PM (9 days ago)

Author:

emillour

Message:

Generic PCM:
Clean up module thermcell_mod.F90 : make module variables private and remove
unused module variables.
While at it, put all thermcell_*.F90 routines in modules.
EM

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/physiq_mod.F90

@@ -21 +21 @@
       use generic_cloud_common_h, only : epsi_generic, Psat_generic
       use thermcell_mod, only: init_thermcell_mod
+      use thermcell_main_mod, only: thermcell_main
       use gases_h, only: gnom, gfrac, ngasmx
       use radcommon_h, only: sigma, glat, grav, BWNV, WNOI, DWNI, DWNV, WNOV
@@ -796 +797 @@
 !        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
          if (calltherm) then
-            CALL init_thermcell_mod(g, rcp_ref, rd_ref, pi, T_h2o_ice_liq, RW)
+            CALL init_thermcell_mod(g, rcp_ref, rd_ref, pi)
          endif