Changeset 4143 for LMDZ6/trunk/libf/phylmd/thermcell_main.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/phylmd/thermcell_main.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/thermcell_main.F90

@@ -22 +22 @@
 
 #ifdef ISO
-  USE infotrac_phy, ONLY : ntraciso
+  USE infotrac_phy, ONLY : ntiso
 #ifdef ISOVERIF
   USE isotopes_mod, ONLY : iso_eau,iso_HDO
@@ -140 +140 @@
 
 #ifdef ISO
-      REAL xtpo(ntraciso,ngrid,nlay),xtpdoadj(ntraciso,ngrid,nlay)
-      REAL xtzo(ntraciso,ngrid,nlay)
+      REAL xtpo(ntiso,ngrid,nlay),xtpdoadj(ntiso,ngrid,nlay)
+      REAL xtzo(ntiso,ngrid,nlay)
       REAL xtpdoadj_tmp(ngrid,nlay)
       REAL xtpo_tmp(ngrid,nlay)
@@ -368 +368 @@
      &           zlev,lmax,zmax,zmax0,zmix,wmax)
 ! Attention, w2 est transforme en sa racine carree dans cette routine
-! Le probleme vient du fait que linter et lmix sont souvent égaux à 1.
+! Le probleme vient du fait que linter et lmix sont souvent egaux a 1.
       wmax_tmp=0.
       do  l=1,nlay
@@ -488 +488 @@
 
 #ifdef ISO
-        ! C Risi: on utilise directement la même routine
-        do ixt=1,ntraciso
+        ! C Risi: on utilise directement la meme routine
+        do ixt=1,ntiso
           do ll=1,nlay
             DO ig=1,ngrid
@@ -503 +503 @@
             enddo
           enddo
-        enddo !do ixt=1,ntraciso
+        enddo
 #endif
 
@@ -749 +749 @@
 ! nrlmd le 10/04/2012   Transport de la TKE par le thermique moyen pour la fermeture en ALP 
 !                       On transporte pbl_tke pour donner therm_tke
-!                       Copie conforme de la subroutine DTKE dans physiq.F écrite par Frederic Hourdin
+!                       Copie conforme de la subroutine DTKE dans physiq.F ecrite par Frederic Hourdin
 
 !=======================================================================