Changeset 5003 for LMDZ6/trunk/libf/dyn3d_common/infotrac.F90
- Timestamp:
- Jul 1, 2024, 3:02:29 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/infotrac.F90
r5001 r5003 156 156 INTEGER :: nqtrue !--- Tracers nb from tracer.def (no higher order moments) 157 157 INTEGER :: iad !--- Advection scheme number 158 INTEGER :: i c, iq, jq, it, nt, im, nm, iz, k!--- Indexes and temporary variables158 INTEGER :: iq, jq, nt, im, nm !--- Indexes and temporary variables 159 159 LOGICAL :: lerr, ll 160 CHARACTER(LEN=1) :: p161 160 TYPE(trac_type), ALLOCATABLE, TARGET :: ttr(:) 162 161 TYPE(trac_type), POINTER :: t1, t(:) 163 INTEGER :: ierr164 162 CHARACTER(LEN=maxlen), ALLOCATABLE :: types_trac(:) !--- Keyword for tracers type(s), parsed version 165 163 … … 245 243 ttr(1+nqo:nqCO2+nqo )%component = 'co2i' 246 244 ttr(1+nqo+nqCO2:nqtrue)%component = 'inca' 247 ttr(1+nqo :nqtrue)%name = [('CO2 ', k=1, nqCO2), solsym_inca]245 ttr(1+nqo :nqtrue)%name = [('CO2 ', iq=1, nqCO2), solsym_inca] 248 246 ttr(1+nqo+nqCO2:nqtrue)%parent = tran0 249 247 ttr(1+nqo+nqCO2:nqtrue)%phase = 'g'
Note: See TracChangeset
for help on using the changeset viewer.