Ignore:
Timestamp:
Jan 25, 2022, 7:14:39 PM (3 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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.F90

    r4058 r4064  
    4949   !     Variables locales
    5050   !---------------------------------------------------------------------------
    51    INTEGER :: ij, l, iq, iiq, iadv
     51   INTEGER :: ij, l, iq, iadv
    5252   REAL(KIND=KIND(1.d0)) :: t_initial, t_final, tps_cpu
    5353   REAL :: zdp(ijb_u:ije_u), zdpmin, zdpmax
Note: See TracChangeset for help on using the changeset viewer.