Changeset 23 for readTracFiles_mod.f90

Timestamp:

Sep 22, 2022, 12:09:43 PM (2 years ago)

Author:

dcugnet

Message:

Fix to force the water phases to get the "lmdz" component tag in the case of older "traceur.def" files.
Needed because the computation of nqo now uses the %component key.

File:

• readTracFiles_mod.f90 (modified) (1 diff)

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