Changeset 4143 for LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90

Timestamp:

May 9, 2022, 12:35:40 PM (2 years ago)

Author:

dcugnet

Message:

• Some variables are renamed or replaced by direct equivalents:
  • iso_indnum -> tracers(:)%iso_iName
  • niso_possibles -> niso
  • iqiso -> iqIsoPha ; index_trac -> itZonIso
  • ok_iso_verif -> isoCheck
  • ntraceurs_zone -> nzone ; ntraciso -> ntiso
  • qperemin -> min_qparent ; masseqmin -> min_qmass ; ratiomin -> min_ratio
• Some renamed variables are only aliased with the older name (using USE <module>, ONLY: <oldName> => <newName>) in routines where they are repeated many times.
• Few hard-coded indexes are now computed (examples: ilic, iso, ivap, irneb, iq_vap, iq_liq, iso_H2O, iso_HDO, iso_HTO, iso_O17, iso_O18).
• The IF(isoCheck) test is now embedded in the check_isotopes_seq and check_isotopes_loc routines (lighter calling).

File:

• LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90

@@ -7 +7 @@
                        )
 #ifdef ISO
-    use infotrac_phy, ONLY: ntraciso
+    use infotrac_phy, ONLY: ntiso
 #endif
   ! **************************************************************
@@ -46 +46 @@
   REAL, DIMENSION (len,nd+1), INTENT (IN)   :: ph
 #ifdef ISO
-  REAL, DIMENSION (ntraciso,len,nd), INTENT (IN)     :: xt
+  REAL, DIMENSION (ntiso,len,nd), INTENT (IN)     :: xt
 #endif
 !input/output:
@@ -57 +57 @@
   REAL, DIMENSION (len,nd), INTENT (OUT)    :: wi
 #ifdef ISO
-  REAL, DIMENSION (ntraciso,len), INTENT (OUT)     :: xtmix
+  REAL, DIMENSION (ntiso,len), INTENT (OUT)     :: xtmix
 #endif
 !internal variables :
@@ -153 +153 @@
         vmix(i) = vmix(i) +  v(i, j)*wi(i, j)
 #ifdef ISO
-        do ixt=1,ntraciso
+        do ixt=1,ntiso
           xtmix(ixt,i) = xtmix(ixt,i) +  xt(ixt,i, j)*wi(i, j)
         enddo