Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/infotrac_phy.F90
- Timestamp:
- Jul 23, 2024, 3:29:36 PM (8 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/infotrac_phy.F90
r5101 r5103 216 216 SELECT CASE(type_trac) 217 217 CASE('inca', 'inco') 218 IF ( CPPKEY_INCA) THEN218 IF (.NOT. CPPKEY_INCA) THEN 219 219 CALL abort_physic(modname, 'You must add cpp key INCA and compile with INCA code', 1) 220 220 END IF … … 259 259 IF(fType == 1 .AND. ANY(['inca', 'inco']==type_trac) .AND. lInit) THEN !=== FOUND OLD STYLE INCA "traceur.def" 260 260 !--------------------------------------------------------------------------------------------------------------------------- 261 IF (CPPKEY_INCA) THEN262 261 nqo = SIZE(tracers) - nqCO2 263 262 CALL Init_chem_inca_trac(nqINCA) !--- Get nqINCA from INCA … … 290 289 IF(setGeneration(tracers)) CALL abort_physic(modname, 'See below', 1) !- SET FIELDS %iGeneration, %gen0Name 291 290 DEALLOCATE(had, hadv_inca, vad, vadv_inca, conv_flg_inca, pbl_flg_inca, solsym_inca) 292 END IF293 291 !--------------------------------------------------------------------------------------------------------------------------- 294 292 ELSE !=== OTHER CASES (OLD OR NEW FORMAT, NO INCA MODULE) … … 299 297 nbtr = nqtrue - COUNT(delPhase(tracers(:)%gen0Name) == 'H2O' & 300 298 .AND. tracers(:)%component == 'lmdz') !--- Number of tracers passed to phytrac 301 IF (CPPKEY_INCA) THEN302 299 nqINCA = COUNT(tracers(:)%component == 'inca') 303 END IF304 300 lerr = getKey('hadv', hadv, ky = tracers(:)%keys) 305 301 lerr = getKey('vadv', vadv, ky = tracers(:)%keys)
Note: See TracChangeset
for help on using the changeset viewer.