Changeset 5184 for LMDZ6/trunk/libf/phylmd

Timestamp:

Sep 11, 2024, 3:17:07 PM (10 days ago)

Author:

dcugnet

Message:

Few corrections, more is needed to fix the previous commit.

File:

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

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -260 +260 @@
    INTEGER :: iad                                                    !--- Advection scheme number
    INTEGER :: iq, jq, it, nt, im, nm                                 !--- Indexes and temporary variables
-   LOGICAL :: lerr, lInit
+   LOGICAL :: lInit
    TYPE(keys_type), ALLOCATABLE, TARGET :: tra(:)                    !--- Tracers  descriptor as in readTracFiles_mod
    TYPE(tisot),     ALLOCATABLE         :: iso(:)                    !--- Isotopes descriptor as in readTracFiles_mod