Changeset 4263 for LMDZ6/trunk/libf/misc

Timestamp:

Sep 21, 2022, 9:35:28 AM (22 months ago)

Author:

dcugnet

Message:

Fixes for INCO, CO2i AND REPROBUS, mostly because some sections are specific to type_trac=="lmdz",
which is not always equivalent to ANY(types_trac=='lmdz).
Also force the water phases to get tracers(*)%component='lmdz' so that nqo can be correctly computed.

File:

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

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -158 +158 @@
         tracs(it)%phase = known_phases(ip:ip)                        !--- Set %phase:  tracer phase (default: "g"azeous)
         tracs(it)%component = TRIM(type_trac)                        !--- Set %component: model component name
+        IF(ANY([(addPhase('H2O', ip), ip=1, nphases)] == tracs(it)%name)) tracs(it)%component = 'lmdz'
         tracs(it)%keys%key = ['hadv', 'vadv']                        !--- Set %keys%key
         tracs(it)%keys%val = s(1:2)                                  !--- Set %keys%val