Changeset 4050 for LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F

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/dyn3dmem/check_isotopes_loc.F (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F

@@ -1 +1 @@
         subroutine check_isotopes(q,ijb,ije,err_msg)
-        USE infotrac
+        USE infotrac, ONLY: nqtot, nqo, niso, ntraciso, ntraceurs_zone, 
+     &                ok_isotopes, ok_isotrac, use_iso, 
+     &                iqiso, indnum_fn_num, index_trac, tnat
         USE parallel_lmdz
         implicit none