Changeset 4138 for LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

Timestamp:

Apr 26, 2022, 10:19:58 AM (2 years ago)

Author:

acozic

Message:

fixed two bug for coupling with inca
1- allow the possibility of having tracers names with H2O in it (like H2O2)
2- allow the possibility of having other water tracers in inca

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -1407 +1407 @@
   IF(PRESENT(iPhase)) iPhase = 1                                               !--- Default: gaseous phase
   IF(oldName(1:MIN(3,LEN_TRIM(oldName))) /= 'H2O') RETURN                      !--- Not a water descendant
+  IF(LEN_TRIM(oldName)>3) THEN; IF(INDEX(old_Phases,oldName(4:4))==0) RETURN; END IF 
+
+
   lerr = strParse(oldName, '_', tmp, n=nt)
   ip = strIdx([('H2O'//old_phases(ip:ip), ip=1, nphases)], tmp(1))             !--- Phase index (/=0 if any)