Changeset 4064 for LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.F90

Timestamp:

Jan 25, 2022, 7:14:39 PM (2 years ago)

Author:

dcugnet

Message:

• minor fixes (unused variables suppressed, comas after a WRITE() statement, etc.)
• parser routines taken from version 7 of ​https://svn.lmd.jussieu.fr/tracers-parser
• few changes in infotrac, and few fixes of (at least) the sequential version:
  • uadv and vadv were deallocated twice (fix was lost by mistake just before last commit)
  • in [( dum(im), im=1, nm)] implicit loops, ifort evaluates "dum(im)" even if nm==0,

resulting in a crash, "im" being unitialized.

File:

• LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.F90

@@ -49 +49 @@
    !     Variables locales
    !---------------------------------------------------------------------------
-   INTEGER :: ij, l, iq, iiq, iadv
+   INTEGER :: ij, l, iq, iadv
    REAL(KIND=KIND(1.d0)) :: t_initial, t_final, tps_cpu
    REAL :: zdp(ijb_u:ije_u), zdpmin, zdpmax