Changeset 3960 for LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common
- Timestamp:
- Jul 13, 2021, 12:41:02 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers/libf/dyn3d_common/infotrac.F90
r3957 r3960 112 112 nbIso !--- Number of available isotopes family 113 113 CHARACTER(LEN=256), SAVE :: type_trac !--- Keyword for tracers type 114 !$OMP THREADPRIVATE(nqtot, nbtr, nqo, nbIso, type_trac)115 114 116 115 !=== DERIVED TYPES EMBEDDING MOST INFORMATIONS ABOUT TRACERS AND ISOTOPES FAMILIES 117 116 TYPE(tra), TARGET, SAVE, ALLOCATABLE :: tracers(:) !=== TRACERS DESCRIPTORS VECTOR 118 117 TYPE(iso), TARGET, SAVE, ALLOCATABLE :: isotopes(:) !=== ISOTOPES PARAMETERS VECTOR 119 !$OMP THREADPRIVATE(tracers, isotopes)120 118 121 119 !=== ALIASES FOR CURRENTLY SELECTED ISOTOPES FAMILY OF VARIABLES EMBEDDED IN THE VECTOR "isotopes" … … 131 129 INTEGER, SAVE, POINTER :: iZonIso(:,:) !--- INDEX IN "isoTrac" AS f(tagging zone, isotope) 132 130 INTEGER, SAVE, POINTER :: iTraPha(:,:) !--- INDEX IN "isoTrac" AS f(isotopic tracer, phase) 133 !$OMP THREADPRIVATE(isotope, ixIso,iH2O, isoCheck, isoKeys, isoName,isoZone,isoPhas, niso,nzon,npha,nitr, iZonIso,iTraPha)134 131 135 132 !=== VARIABLES EMBEDDED IN "tracers", BUT DUPLICATED, AS THEY ARE RATHER FREQUENTLY USED + VARIABLES FOR INCA … … 141 138 niadv(:) !--- Indexes of true tracers (<=nqtot, such that iadv(idx)>0) 142 139 CHARACTER(LEN=8), SAVE, ALLOCATABLE :: solsym(:) !--- Names from INCA (nbtr) 143 !OMP THREADPRIVATE(tnat, alpha_ideal, conv_flg, pbl_flg, itr_indice, niadv, solsym)144 140 145 141 #ifdef CPP_StratAer 146 142 !=== SPECIFIC TO STRATOSPHERIC AEROSOLS (CK/OB) 147 143 INTEGER, SAVE :: nbtr_bin, nbtr_sulgas, id_OCS_strat, id_H2SO4_strat, id_SO2_strat, id_BIN01_strat, id_TEST_strat 148 !OMP THREADPRIVATE(nbtr_bin, nbtr_sulgas, id_OCS_strat, id_H2SO4_strat, id_SO2_strat, id_BIN01_strat, id_TEST_strat)149 144 #endif 150 145
Note: See TracChangeset
for help on using the changeset viewer.