Changeset 4050 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Dec 23, 2021, 6:54:17 PM (2 years ago)

Author:

dcugnet

Message:

Second commit for new tracers.

• include most of the keys in the tracers descriptor vector "tracers(:)".
• fix in phylmdiso/cv3_routines: fq_* variables were used where their fxt_* counterparts were expected.
• multiple IF(nqdesc(iq)>0) and IF(nqfils(iq)>0) tests suppressed, because they are not needed: "do ... enddo" loops with 0 upper bound are not executed.
• remove French accents from comments (encoding problem) in phylmdiso/cv3_routines and phylmdiso/cv30_routines.
• modifications in "isotopes_verif_mod", where the call to function "iso_verif_tag17_q_deltad_chn" in "iso_verif_tag17_q_deltad_chn" was not detected at linking stage, although defined in the same module (?).

File:

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

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -123 +123 @@
 #ifdef ISO
     USE infotrac_phy, ONLY:  &
-        iqiso,iso_num,iso_indnum,zone_num,ok_isotrac, &
+        iqiso,iso_indnum,tracers,ok_isotrac, &
         niso,ntraciso,nqtottr,itr_indice ! ajout C Risi pour isos
      USE isotopes_mod, ONLY: iso_eau,iso_HDO,iso_O18,iso_O17,iso_HTO, &
@@ -141 +141 @@
         & iso_verif_aberrant_choix,iso_verif_positif, &
         & iso_verif_positif_choix_vect,iso_verif_o18_aberrant_nostop, &
-        & iso_verif_init, &
+        & iso_verif_init,&
         & iso_verif_positif_strict_nostop,iso_verif_O18_aberrant_enc_vect2D
 #endif
@@ -155 +155 @@
 &       iso_verif_traceur_justmass,iso_verif_traceur_vect, &
 &       iso_verif_trac17_q_deltad,iso_verif_trac_masse_vect, &
-&       iso_verif_tracpos_choix_nostop
+&       iso_verif_tag17_q_deltaD_vect, iso_verif_tracpos_choix_nostop
 #endif
 #endif
@@ -2366 +2366 @@
 #endif
       if (ixt.gt.niso) then
-      write(*,*) 'izone,iiso=',zone_num(iqiso(ixt,ivap)),iso_indnum(iqiso(ixt,ivap))  
+      write(*,*) 'izone,iiso=',tracers(iqiso(ixt,ivap))%iso_iZone,iso_indnum(iqiso(ixt,ivap))  
       endif
       DO k = 1, klev