Changeset 4050 for LMDZ6/trunk/libf/dyn3dmem/vlz_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/dyn3dmem/vlz_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3dmem/vlz_mod.F90

@@ -5 +5 @@
   REAL,POINTER,SAVE :: dzqw(:,:)
   REAL,POINTER,SAVE :: adzqw(:,:)
-  ! CRisi: pour les traceurs:  
-  !REAL,POINTER,SAVE :: masseq(:,:,:)
+  ! CRisi: pour les traceurs:
   REAL,POINTER,SAVE :: Ratio(:,:,:)
   
@@ -25 +24 @@
     CALL allocate_u(dzqw,llm,d)
     CALL allocate_u(adzqw,llm,d)
-    if (nqdesc_tot.gt.0) then
-    !CALL allocate_u(masseq,llm,nqtot,d)
-    CALL allocate_u(Ratio,llm,nqtot,d)
-    endif !if (nqdesc_tot.gt.0) then
+    IF(ANY(tracers(:)%nqDescen > 0)) CALL allocate_u(Ratio,llm,nqtot,d)
 
   END SUBROUTINE vlz_allocate
@@ -44 +40 @@
     CALL switch_u(dzqw,distrib_vanleer,dist)
     CALL switch_u(adzqw,distrib_vanleer,dist)
-    ! CRisi:
-    if (nqdesc_tot.gt.0) then    
-    !CALL switch_u(masseq,distrib_vanleer,dist)
-    CALL switch_u(Ratio,distrib_vanleer,dist)
-    endif !if (nqdesc_tot.gt.0) then     
+    IF(ANY(tracers(:)%nqDescen > 0)) CALL switch_u(Ratio,distrib_vanleer,dist)
 
   END SUBROUTINE vlz_switch_vanleer