Changeset 4367 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Dec 5, 2022, 9:44:54 PM (22 months ago)

Author:

dcugnet

Message:

• adding missing SAVE attribute for that in check_isotopes
• move phyetat0_get/_srf from phylmd[iso]/phyetat0_mod to new module phyetat0_get_mod -> break circular dependency
• remove unused variables from physiq_mod
• update phylmdiso/physiq_mod with respect to phylmd/physiq_mod (few updates were not included)

File:

• LMDZ6/trunk/libf/dyn3d/check_isotopes.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d/check_isotopes.F90

@@ -11 +11 @@
    INTEGER :: ixt, ipha, k, i, iq, iiso, izon, ieau, iqeau, iqpar
    INTEGER, ALLOCATABLE ::   ix(:)
-   REAL,    ALLOCATABLE :: tnat(:)
+   REAL,    ALLOCATABLE, SAVE :: tnat(:)
    REAL    :: xtractot, xiiso, deltaD, q1, q2
    REAL, PARAMETER :: borne     = 1e19,  &