Changeset 4389 for LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90
- Timestamp:
- Jan 23, 2023, 11:28:51 AM (17 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phyetat0_mod.F90
r4370 r4389 32 32 USE geometry_mod, ONLY: longitude_deg, latitude_deg 33 33 USE iostart, ONLY: close_startphy, get_field, get_var, open_startphy 34 USE infotrac_phy, ONLY: nqtot, nbtr, type_trac, t ypes_trac, tracers34 USE infotrac_phy, ONLY: nqtot, nbtr, type_trac, tracers 35 35 USE readTracFiles_mod,ONLY: maxlen, new2oldH2O 36 36 USE traclmdz_mod, ONLY: traclmdz_from_restart … … 471 471 472 472 !--OB now this is for co2i - ThL: and therefore also for inco 473 IF (ANY(type s_trac == 'co2i') .OR. ANY(types_trac == 'inco')) THEN473 IF (ANY(type_trac == ['co2i','inco'])) THEN 474 474 IF (carbon_cycle_cpl) THEN 475 475 ALLOCATE(co2_send(klon), stat=ierr)
Note: See TracChangeset
for help on using the changeset viewer.