Changeset 4389 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Jan 23, 2023, 11:28:51 AM (2 years 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/dyn3d/dynredem.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/dynredem.F90

@@ -167 +167 @@
 !-------------------------------------------------------------------------------
   USE strings_mod, ONLY: maxlen
-  USE infotrac, ONLY: nqtot, tracers, types_trac
+  USE infotrac, ONLY: nqtot, tracers, type_trac
   USE control_mod
   USE netcdf,   ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID,  &
@@ -228 +228 @@
 !--- Tracers in file "start_trac.nc" (added by Anne)
   lread_inca=.FALSE.; fil="start_trac.nc"
-  IF(ANY(types_trac=='inca') .OR. ANY(types_trac=='inco')) INQUIRE(FILE=fil,EXIST=lread_inca)
+  IF(ANY(type_trac == ['inca','inco'])) INQUIRE(FILE=fil,EXIST=lread_inca)
   IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open")