Ignore:
Timestamp:
Jan 27, 2023, 12:35:36 AM (17 months ago)
Author:
dcugnet
Message:

Change the names of the water isotopes: no more "and?" separators for atomic numbers.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4367 r4399  
    3232   IF(first) THEN
    3333!$OMP MASTER
    34       iso_eau = strIdx(isoName,'H2[16]O')
    35       iso_HDO = strIdx(isoName,'H[2]HO')
    36       iso_O18 = strIdx(isoName,'H2[18]O')
    37       iso_O17 = strIdx(isoName,'H2[17]O')
    38       iso_HTO = strIdx(isoName,'H[3]HO')
     34      iso_eau = strIdx(isoName,'H216O')
     35      iso_HDO = strIdx(isoName,'HDO')
     36      iso_O18 = strIdx(isoName,'H218O')
     37      iso_O17 = strIdx(isoName,'H217O')
     38      iso_HTO = strIdx(isoName,'HTO')
    3939      IF(getKey('tnat', tnat)) CALL abort_gcm(modname, 'missing isotopic parameter', 1)
    4040!$OMP END MASTER
Note: See TracChangeset for help on using the changeset viewer.