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

Timestamp:

Sep 26, 2025, 3:47:38 PM (2 months 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/cva_driver.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/cva_driver.f90

@@ -561 +561 @@
   REAL hent(nloc, nd, nd)
   REAL uent(nloc, nd, nd), vent(nloc, nd, nd)
-  REAL ments(nloc, nd, nd), qents(nloc, nd, nd)
+!!  REAL ments(nloc, nd, nd), qents(nloc, nd, nd)                               !jyg: get rid of ments
   REAL elij(nloc, nd, nd)
   REAL supmax(nloc, nd)
@@ -1021 +1021 @@
                          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)                                              
 ! print*, 'cv3p_mixing-> supmax ', (supmax(1,k), k=1,nd)
 
@@ -1104 +1105 @@
                         unk, vnk, hp, tv, tvp, ep, clw, m, sig, &
 !!                        ment, qent, uent, vent, nent, sigij, elij, ments, qents, traent)     !jyg: get rid of ntra
-                        ment, qent, uent, vent, nent, sigij, elij, ments, qents)               
+!!                        ment, qent, uent, vent, nent, sigij, elij, ments, qents)             !jyg: get rid of ments
+                        ment, qent, uent, vent, nent, sigij, elij)
         hent(1:nloc,1:nd,1:nd) = 0.
       ELSE