Changeset 5003 for LMDZ6/trunk/libf/phylmd

Timestamp:

Jul 1, 2024, 3:02:29 PM (3 months ago)

Author:

dcugnet

Message:

• Modifiy some horzcat* routines: gfortran does not like empty arrays (ie with one null dimension) in arrays constructors (ifort does)
• Remove unused variables

File:

• LMDZ6/trunk/libf/phylmd/infotrac_phy.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -178 +178 @@
    INTEGER :: nqtrue                                                 !--- Tracers nb from tracer.def (no higher order moments)
    INTEGER :: iad                                                    !--- Advection scheme number
-   INTEGER :: ic, iq, jq, it, nt, im, nm, iz, k                      !--- Indexes and temporary variables
-   LOGICAL :: lerr, ll, lInit
-   CHARACTER(LEN=1) :: p
+   INTEGER :: iq, jq, nt, im, nm, k                                 !--- Indexes and temporary variables
+   LOGICAL :: lerr, lInit
    TYPE(trac_type), ALLOCATABLE, TARGET :: ttr(:)
    TYPE(trac_type), POINTER             :: t1, t(:)
-   INTEGER :: ierr
    CHARACTER(LEN=maxlen),   ALLOCATABLE :: types_trac(:)  !--- Keyword for tracers type(s), parsed version