Changeset 4050 for LMDZ6/trunk/libf/phylmd/traclmdz_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/phylmd/traclmdz_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/traclmdz_mod.F90

@@ -67 +67 @@
     
     USE dimphy
-    USE infotrac_phy
+    USE infotrac_phy, ONLY: nbtr, tracers, niadv, solsym
     
     ! Input argument
@@ -89 +89 @@
     ! Initialization of the tracers should be done here only for those not found in the restart file.
     USE dimphy
-    USE infotrac_phy
+    USE infotrac_phy, ONLY: nbtr, nqo, tracers, pbl_flg, conv_flg, niadv
     USE regr_pr_comb_coefoz_m, ONLY: alloc_coefoz
     USE press_coefoz_m, ONLY: press_coefoz
@@ -176 +176 @@
 !!       iiq=niadv(it+2)                                                            ! jyg
        iiq=niadv(it+nqo)                                                            ! jyg
-print*,'###'//TRIM(tracers(iiq)%name)//'###'
-print*,'###'//TRIM(strLower(tracers(iiq)%name))//'###'
        SELECT CASE(strLower(tracers(iiq)%name))
          CASE("rn");      id_rn     = it ! radon
@@ -311 +309 @@
     
     USE dimphy
-    USE infotrac_phy
+    USE infotrac_phy, ONLY: nbtr, pbl_flg, solsym
     USE regr_pr_comb_coefoz_m, ONLY: regr_pr_comb_coefoz
     USE o3_chem_m, ONLY: o3_chem
@@ -586 +584 @@
     ! variable trs is written to restart file (restartphy.nc)
     USE dimphy
-    USE infotrac_phy
+    USE infotrac_phy, ONLY: nbtr
     
     REAL,DIMENSION(klon,nbtr), INTENT(OUT) :: trs_out