Changeset 4399 for LMDZ6/trunk/libf/dyn3d/check_isotopes.F90

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:

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

LMDZ6/trunk/libf/dyn3d/check_isotopes.F90

@@ -29 +29 @@
    IF(niso == 0)        RETURN                   !--- No isotopes => finished
    IF(first) THEN
-      iso_eau = strIdx(isoName,'H2[16]O')
-      iso_HDO = strIdx(isoName,'H[2]HO')
-      iso_O18 = strIdx(isoName,'H2[18]O')
-      iso_O17 = strIdx(isoName,'H2[17]O')
-      iso_HTO = strIdx(isoName,'H[3]HO')
+      iso_eau = strIdx(isoName,'H216O')
+      iso_HDO = strIdx(isoName,'HDO')
+      iso_O18 = strIdx(isoName,'H218O')
+      iso_O17 = strIdx(isoName,'H217O')
+      iso_HTO = strIdx(isoName,'HTO')
       IF(getKey('tnat', tnat)) CALL abort_gcm(modname, 'missing isotopic parameter', 1)
       first = .FALSE.