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

LMDZ6/trunk/libf/dyn3d/advtrac.F90

@@ -11 +11 @@
    !            M.A Filiberti (04/2002)
    !
-   USE infotrac,     ONLY: nqtot, tracers,ok_iso_verif
+   USE infotrac,     ONLY: nqtot, tracers, isoCheck
    USE control_mod,  ONLY: iapp_tracvl, day_step
    USE comconst_mod, ONLY: dtvr
@@ -215 +215 @@
 #endif
 
-   IF(ok_iso_verif) THEN
-      WRITE(*,*) 'advtrac 227'
-      CALL check_isotopes_seq(q,ip1jmp1,'advtrac 162')
-   END IF
+   IF(isoCheck) WRITE(*,*) 'advtrac 227'
+   CALL check_isotopes_seq(q,ip1jmp1,'advtrac 162')
 
    !-------------------------------------------------------------------------
@@ -346 +344 @@
    END DO
 
-   IF(ok_iso_verif) then
-      WRITE(*,*) 'advtrac 402'
-      CALL check_isotopes_seq(q,ip1jmp1,'advtrac 397')
-   END IF
+   IF(isoCheck) WRITE(*,*) 'advtrac 402'
+   CALL check_isotopes_seq(q,ip1jmp1,'advtrac 397')
 
    !-------------------------------------------------------------------------