Changeset 3963

Timestamp:

Jul 20, 2021, 2:01:40 PM (3 years ago)

Author:

acozic

Message:

fixe a bug on inca tracers index. We need to substrac nqo between inca array and lmdz array

File:

• LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/infotrac.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/infotrac.F90

@@ -314 +314 @@
         ALLOCATE(vadv(nqtrue)); vadv(:) = 0
         DO iq = nqo+1, nqtrue
-          ttr(iq)%name = solsym(iq)
+          ttr(iq)%name = solsym(iq-nqo)
           ttr(iq)%prnt = tran0
           ttr(iq)%igen = 1