Changeset 4394 for LMDZ6/trunk/libf/misc
- Timestamp:
- Jan 23, 2023, 5:46:32 PM (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/misc/readTracFiles_mod.f90
r4389 r4394 1749 1749 INTEGER :: ix, ip, ns 1750 1750 out = s; ns = LEN_TRIM(s) 1751 IF(s == '' ) RETURN !--- Empty string: nothing to do1751 IF(s == '' .OR. ns<=2) RETURN !--- Empty string or LEN(name)<=2: nothing to do 1752 1752 IF(s(1:3)=='H2O' .AND. INDEX(old_phases,s(4:4))/=0 .AND. (ns==4 .OR. s(5:5)=='_')) THEN 1753 1753 out='H2O'//s(5:ns) !--- H2O<phase>[_<iso>][_<tag>]
Note: See TracChangeset
for help on using the changeset viewer.