Changeset 4399 for LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F90
- Timestamp:
- Jan 27, 2023, 12:35:36 AM (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F90
r4367 r4399 32 32 IF(first) THEN 33 33 !$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') 39 39 IF(getKey('tnat', tnat)) CALL abort_gcm(modname, 'missing isotopic parameter', 1) 40 40 !$OMP END MASTER
Note: See TracChangeset
for help on using the changeset viewer.