Changeset 3891 for LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/qminimum_loc.F

Timestamp:

May 11, 2021, 2:10:34 PM (4 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/qminimum_loc.F (modified) (2 diffs)

LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/qminimum_loc.F

@@ -4 +4 @@
       SUBROUTINE qminimum_loc( q,nqtot,deltap )
       USE parallel_lmdz
-      USE infotrac, ONLY: nitr, iTraPha, qperemin ! CRisi 23nov2020
+      USE infotrac, ONLY: nitr, iTraPha, qprntmin ! CRisi 23nov2020
       IMPLICIT none
 c
@@ -166 +166 @@
 !              write(lunout,*) 'i,k,q_follow(i,k-1,iq_vap)=',
 !     :                 i,k,q_follow(i,k-1,iq_vap)          
-              if (q_follow(i,k-1,iq_vap).lt.qperemin) then
+              if (q_follow(i,k-1,iq_vap).lt.qprntmin) then
                 write(lunout,*) 'tmp qmin: on stoppe'
                 write(lunout,*) 'zx_pump(i)=',zx_pump(i)