Changeset 5843 for LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

Timestamp:

Sep 26, 2025, 3:47:38 PM (8 weeks ago)

Author:

jyg

Message:

Getting rid of "ments" and "qents" arrays within cva_driver.
Several comments to be cleared later.

File:

• LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

@@ -15 +15 @@
                        Ment, Qent, hent, uent, vent, nent, &
 !!                       Sigij, elij, supmax, Ments, Qents, traent)                       !jyg: get rid of ntra
-                       Sigij, elij, supmax, Ments, Qents)
+!!                       Sigij, elij, supmax, Ments, Qents)                               !jyg: get rid of ments
+                       Sigij, elij, supmax)
 ! **************************************************************
 ! *
@@ -62 +63 @@
                                                                          ! updraughts with the sign of (h-hp)
 !!  REAL, DIMENSION (nloc, nd, nd, ntra), INTENT (OUT) :: traent                          !jyg: get rid of ntra
-  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: Ments, Qents
+!!  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: Ments, Qents                    !jyg: get rid of ments
   REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: hent
   INTEGER, DIMENSION (nloc, nd), INTENT (OUT)        :: nent