source: LMDZ6/branches/LMDZ_cdrag_LSCE/libf/phydev/infotrac_phy.F90 @ 5456

Last change on this file since 5456 was 4389, checked in by dcugnet, 2 years ago
  • 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 size: 645 bytes
Line 
1
2! $Id: $
3
4MODULE infotrac_phy
5
6   USE strings_mod, ONLY: maxlen
7   INTEGER,                 SAVE :: nqtot                       !--- Tracers nb in dynamics (incl. higher moments + H2O)
8   CHARACTER(LEN=maxlen),   SAVE :: type_trac                   !--- Keyword for tracers type
9!$OMP THREADPRIVATE(nqtot, type_trac)
10
11CONTAINS
12
13SUBROUTINE init_infotrac_phy(nqtot_, type_trac_)
14   IMPLICIT NONE
15   INTEGER,          INTENT(IN) :: nqtot_
16   CHARACTER(LEN=*), INTENT(IN) :: type_trac_
17   CHARACTER(LEN=maxlen) :: modname='init_infotrac_phy'
18
19   nqtot = nqtot_
20   type_trac = type_trac_
21
22  END SUBROUTINE init_infotrac_phy
23
24END MODULE infotrac_phy
Note: See TracBrowser for help on using the repository browser.