Changeset 4394

Timestamp:

Jan 23, 2023, 5:46:32 PM (16 months ago)

Author:

dcugnet

Message:

Fix in delPhase for single character tarcers names.

File:

• LMDZ6/trunk/libf/misc/readTracFiles_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -1749 +1749 @@
   INTEGER :: ix, ip, ns
   out = s; ns = LEN_TRIM(s)
-  IF(s == '')               RETURN                                             !--- Empty string: nothing to do
+  IF(s == '' .OR. ns<=2) RETURN                                                !--- Empty string or LEN(name)<=2: nothing to do
   IF(s(1:3)=='H2O' .AND. INDEX(old_phases,s(4:4))/=0 .AND. (ns==4 .OR. s(5:5)=='_')) THEN
     out='H2O'//s(5:ns)                                                         !--- H2O<phase>[_<iso>][_<tag>]