Changeset 4143 for LMDZ6/trunk/libf/phylmdiso/fisrtilp.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/fisrtilp.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/fisrtilp.F90

@@ -27 +27 @@
   USE add_phys_tend_mod, only : fl_cor_ebil 
 #ifdef ISO
-  USE infotrac_phy, ONLY: ntraciso,niso,index_trac,ntraceurs_zone
+  USE infotrac_phy, ONLY: ntraciso=>ntiso,niso,itZonIso
   USE isotopes_mod
 !, ONLY: essai_convergence,bidouille_anti_divergence, &
@@ -1510 +1510 @@
                    zxtn(iso_eau,i)=zqn(i)
 #ifdef ISOTRAC
-                   zxtn(index_trac(izone_poubelle,iso_eau),i)=zqn(i)  
+                   zxtn(itZonIso(izone_poubelle,iso_eau),i)=zqn(i)  
                    if (option_tmin.eq.1) then                   
                      zxtcs(iso_eau,i)=zqcs(i)
@@ -1848 +1848 @@
            ! part le tag résuel et le condensat
            if (iso_verif_positif_choix_nostop( &
-     &           zxt_ancien(index_trac(izone,iso_eau),i) &
-     &          -zxt(index_trac(izone,iso_eau),i),1e-8,'ilp 1270') &
+     &           zxt_ancien(itZonIso(izone,iso_eau),i) &
+     &          -zxt(itZonIso(izone,iso_eau),i),1e-8,'ilp 1270') &
      &          .eq.1) then
             write(*,*) 'i,izone,rneb=',i,izone,rneb(i,k)