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

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

@@ -1 @@
-!
-!
-!
+MODULE thermcell_dq_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
 SUBROUTINE thermcell_dq(ngrid,nlay,ptimestep,fm,entr,detr,masse,              &
                         q,dq,qa)
@@ -159 +162 @@
       
       
-RETURN
-END
+END SUBROUTINE thermcell_dq
+
+END MODULE thermcell_dq_mod