Changeset 4729 for LMDZ6


Ignore:
Timestamp:
Oct 22, 2023, 11:07:29 AM (14 months ago)
Author:
fhourdin
Message:

Corrections phydev.

Location:
LMDZ6/trunk/libf/phydev
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phydev/infotrac_phy.F90

    r4389 r4729  
    55
    66   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)
     7!   PUBLIC :: tracers, type_trac                            !--- Full tracers database, tracers type keyword
     8!   PUBLIC :: nqtot,   nbtr,   nqo,   nqCO2,   nqtottr      !--- Main dimensions
     9   INTEGER,SAVE :: nqtot,   nbtr,   nqo,   nqCO2,   nqtottr      !--- Main dimensions
     10   INTEGER,SAVE :: niso,ntiso
     11   CHARACTER(LEN=maxlen), SAVE :: type_trac                     !--- Keyword for tracers type(s)
     12
     13  TYPE :: keys_type                                        !=== TYPE FOR A SET OF KEYS ASSOCIATED TO AN ELEMENT
     14    CHARACTER(LEN=maxlen)              :: name             !--- Tracer name
     15    CHARACTER(LEN=maxlen), ALLOCATABLE :: key(:)           !--- Keys string list
     16    CHARACTER(LEN=maxlen), ALLOCATABLE :: val(:)           !--- Corresponding values string list
     17  END TYPE keys_type
     18
     19  TYPE :: trac_type                                        !=== TYPE FOR A SINGLE TRACER NAMED "name"
     20    CHARACTER(LEN=maxlen) :: name        = ''              !--- Name of the tracer
     21    CHARACTER(LEN=maxlen) :: gen0Name    = ''              !--- First generation ancestor name
     22    CHARACTER(LEN=maxlen) :: parent      = ''              !--- Parent name
     23    CHARACTER(LEN=maxlen) :: longName    = ''              !--- Long name (with advection scheme suffix)
     24    CHARACTER(LEN=maxlen) :: type        = 'tracer'        !--- Type  (so far: 'tracer' / 'tag')
     25    CHARACTER(LEN=maxlen) :: phase       = 'g'             !--- Phase ('g'as / 'l'iquid / 's'olid)
     26    CHARACTER(LEN=maxlen) :: component   = ''              !--- Coma-separated list of components (Ex: lmdz,inca)
     27    INTEGER               :: iGeneration = -1              !--- Generation number (>=0)
     28    INTEGER               :: iqParent    = 0               !--- Parent index
     29    INTEGER,  ALLOCATABLE :: iqDescen(:)                   !--- Descendants index (in growing generation order)
     30    INTEGER               :: nqDescen    = 0               !--- Number of descendants (all generations)
     31    INTEGER               :: nqChildren  = 0               !--- Number of children  (first generation)
     32    TYPE(keys_type)       :: keys                          !--- <key>=<val> pairs vector
     33    INTEGER               :: iadv        = 10              !--- Advection scheme used
     34    LOGICAL               :: isAdvected  = .FALSE.         !--- "true" tracers: iadv > 0.   COUNT(isAdvected )=nqtrue
     35    LOGICAL               :: isInPhysics = .TRUE.          !--- "true" tracers: in tr_seri. COUNT(isInPhysics)=nqtottr
     36    INTEGER               :: iso_iGroup  = 0               !--- Isotopes group index in isotopes(:)
     37    INTEGER               :: iso_iName   = 0               !--- Isotope  name  index in isotopes(iso_iGroup)%trac(:)
     38    INTEGER               :: iso_iZone   = 0               !--- Isotope  zone  index in isotopes(iso_iGroup)%zone(:)
     39    INTEGER               :: iso_iPhase  = 0               !--- Isotope  phase index in isotopes(iso_iGroup)%phase
     40  END TYPE trac_type
     41
     42   TYPE(trac_type), ALLOCATABLE, TARGET, SAVE ::  tracers(:)
     43
     44
     45!$OMP THREADPRIVATE(nqtot, nbtr, nqo, nqtottr, nqCO2, type_trac)
     46!$OMP THREADPRIVATE(niso,ntiso)
     47!$OMP THREADPRIVATE(trac_type,tracers)
     48
     49
     50
    1051
    1152CONTAINS
  • LMDZ6/trunk/libf/phydev/iophy.F90

    r4619 r4729  
    129129
    130130      ! Initialize the XIOS domain coreesponding to this process:
    131       CALL wxios_domain_param("dom_glo", is_sequential, nbp_lon, jj_nb, nbp_lon, nbp_lat, &
    132                               1, nbp_lon, ii_begin, ii_end, jj_begin, jj_end,             &
    133                               klon_mpi+2*(nbp_lon-1), data_ibegin, data_iend,             &
    134                               io_lat, io_lon,is_south_pole_dyn,mpi_rank)
     131       CALL wxios_domain_param("dom_glo")
     132!      CALL wxios_domain_param("dom_glo", is_sequential, nbp_lon, jj_nb, nbp_lon, nbp_lat, &
     133!                              1, nbp_lon, ii_begin, ii_end, jj_begin, jj_end,             &
     134!                              klon_mpi+2*(nbp_lon-1), data_ibegin, data_iend,             &
     135!                              io_lat, io_lon,is_south_pole_dyn,mpi_rank)
    135136    ENDIF
    136137!$OMP END MASTER
Note: See TracChangeset for help on using the changeset viewer.