Changeset 4389 for LMDZ6/trunk/libf/phydev/infotrac_phy.F90

Timestamp:

Jan 23, 2023, 11:28:51 AM (17 months ago)

Author:

dcugnet

Message:

• revert to original "type_trac" management:
  • 4 characters keyword (lmdz, Inca, repr, co2i, into, aeNP, coag
  • no longer a list of component with "|" separator
  • the parsed (with "|" separator) version "types_trac" is no longer used
  • the sole routine using a list of component is readTracFiles
• fix for INCA and CO2Aer modes: setGeneration is now a function, index corrections for had/vadv.

File:

• LMDZ6/trunk/libf/phydev/infotrac_phy.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phydev/infotrac_phy.F90

@@ -7 +7 @@
    INTEGER,                 SAVE :: nqtot                       !--- Tracers nb in dynamics (incl. higher moments + H2O)
    CHARACTER(LEN=maxlen),   SAVE :: type_trac                   !--- Keyword for tracers type
-   CHARACTER(LEN=maxlen),   SAVE, ALLOCATABLE :: types_trac(:)  !--- Parsed version (one or several components name(s))
-!$OMP THREADPRIVATE(nqtot, type_trac, types_trac)
+!$OMP THREADPRIVATE(nqtot, type_trac)
 
 CONTAINS
 
 SUBROUTINE init_infotrac_phy(nqtot_, type_trac_)
-   USE strings_mod, ONLY: strParse
    IMPLICIT NONE
    INTEGER,          INTENT(IN) :: nqtot_
@@ -20 +18 @@
 
    nqtot = nqtot_
-   IF(strParse(type_trac, '|', types_trac)) CALL abort_physic(modname,'can''t parse "type_trac = '//TRIM(type_trac)//'"',1)
    type_trac = type_trac_