Changeset 5623 for LMDZ6/branches/contrails/libf/phylmd/infotrac_phy.F90

Timestamp:

Apr 21, 2025, 7:25:01 PM (2 months ago)

Author:

aborella

Message:

Small bug corrections + temporary patch for children tracers in ICO (back to full parents tracers) + now truly no aviation data needed to run

File:

• LMDZ6/branches/contrails/libf/phylmd/infotrac_phy.F90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/phylmd/infotrac_phy.F90 ¶

@@ -369 +369 @@
    iqva = strIdx(tracers(:)%name, 'CONTWATER_g')
    iqia = strIdx(tracers(:)%name, 'CONTWATER_s')
+   !--Two ways of declaring tracers - the way below should be deleted in the future
+   IF (icf.EQ.0) icf  = strIdx(tracers(:)%name, addPhase('H2O', 'f'))
+   IF (iqvc.EQ.0) iqvc = strIdx(tracers(:)%name, addPhase('H2O', 'c'))
+   IF (icfa.EQ.0) icfa = strIdx(tracers(:)%name, addPhase('H2O', 'a'))
+   IF (ipcf.EQ.0) ipcf = strIdx(tracers(:)%name, addPhase('H2O', 'p'))
+   IF (iqva.EQ.0) iqva = strIdx(tracers(:)%name, addPhase('H2O', 'q'))
+   IF (iqia.EQ.0) iqia = strIdx(tracers(:)%name, addPhase('H2O', 't'))
 
    IF(CPPKEY_STRATAER .AND. type_trac == 'coag') THEN