Changeset 3891 for LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/vlz_mod.F90

Timestamp:

May 11, 2021, 2:10:34 PM (3 years ago)

Author:

dcugnet

Message:

• Bugs corrections:
  • sequential gcm fixed
  • parallel gcm compilation fixed ; to be tested
• Some generic operations moved from infotrac to readTracFile
• Fixed algebrical reduction routine, used in the isotopes parameters file.
• Additional component "comp" in the tracers descriptor derived type "tra",

specifying the model component name(s) (cf. tracers sections) it belongs.

• isotopes class selection tool fixed.

File:

• LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/vlz_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/vlz_mod.F90

@@ -25 +25 @@
     CALL allocate_u(dzqw,llm,d)
     CALL allocate_u(adzqw,llm,d)
-    IF(ANY(tracers(:)%ndesc > 0) THEN
+    IF(ANY(tracers(:)%ndesc > 0)) THEN
       !CALL allocate_u(masseq,llm,nqtot,d)
       CALL allocate_u(Ratio,llm,nqtot,d)
@@ -45 +45 @@
     CALL switch_u(adzqw,distrib_vanleer,dist)
     ! CRisi:
-    if (nqdesc_tot.gt.0) then    
+    IF(ANY(tracers(:)%ndesc > 0)) then    
     !CALL switch_u(masseq,distrib_vanleer,dist)
     CALL switch_u(Ratio,distrib_vanleer,dist)