Changeset 4168 for trunk/LMDZ.GENERIC/libf/phygeneric/thermcell_main.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/thermcell_main.F90 (modified) (3 diffs)

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

@@ -1 @@
-!
-!
+MODULE thermcell_main_mod
+
+IMPLICIT NONE
+
+CONTAINS
 !
 SUBROUTINE thermcell_main(ngrid,nlay,nq,ptimestep,firstcall,                  &
@@ -45 +48 @@
 !===============================================================================
       
-      USE thermcell_mod
+      USE thermcell_mod, ONLY: RD, RG, dvimpl, linf
       USE print_control_mod, ONLY: prt_level
+      USE thermcell_env_mod, ONLY: thermcell_env
+      USE thermcell_plume_mod, ONLY: thermcell_plume
+      USE thermcell_height_mod, ONLY: thermcell_height
+      USE thermcell_closure_mod, ONLY: thermcell_closure
+      USE thermcell_flux_mod, ONLY: thermcell_flux
+      USE thermcell_dq_mod, ONLY: thermcell_dq
+      USE thermcell_dv2_mod, ONLY: thermcell_dv2
       
       IMPLICIT NONE
@@ -421 +431 @@
       
       
-RETURN
-END
+END SUBROUTINE thermcell_main
+
+END MODULE thermcell_main_mod