Changeset 4369 for LMDZ6/branches/Ocean_skin/libf/dyn3d

Timestamp:

Dec 6, 2022, 1:01:47 PM (2 years ago)

Author:

lguez

Message:

Sync latest trunk changes to branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

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

LMDZ6/branches/Ocean_skin/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,  &