Ignore:
Timestamp:
Dec 5, 2022, 9:44:54 PM (19 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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4325 r4367  
    1212   INTEGER :: ixt, ipha, k, i, iq, iiso, izon, ieau, iqeau, iqpar
    1313   INTEGER, ALLOCATABLE ::   ix(:)
    14    REAL,    ALLOCATABLE :: tnat(:)               !--- OpenMP shared variable
     14   REAL,    ALLOCATABLE, SAVE :: tnat(:)         !--- OpenMP shared variable
    1515   REAL    :: xtractot, xiiso, deltaD, q1, q2
    1616   REAL, PARAMETER :: borne     = 1e19,  &
Note: See TracChangeset for help on using the changeset viewer.