Changeset 4431 for LMDZ6/trunk/libf/phylmd/infotrac_phy.F90
- Timestamp:
- Feb 10, 2023, 2:37:57 PM (16 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/infotrac_phy.F90
r4429 r4431 273 273 DO iq = 1, nqtrue 274 274 t1 => tracers(iq) 275 CALL addKey _1('name', t1%name, t1%keys)276 CALL addKey _1('component', t1%component, t1%keys)277 CALL addKey _1('parent', t1%parent, t1%keys)278 CALL addKey _1('phase', t1%phase, t1%keys)275 CALL addKey('name', t1%name, t1%keys) 276 CALL addKey('component', t1%component, t1%keys) 277 CALL addKey('parent', t1%parent, t1%keys) 278 CALL addKey('phase', t1%phase, t1%keys) 279 279 END DO 280 280 IF(setGeneration(tracers)) CALL abort_gcm(modname,'See below',1) !- SET FIELDS %iGeneration, %gen0Name
Note: See TracChangeset
for help on using the changeset viewer.