Changeset 3865 for LMDZ6/trunk/libf/phylmd/phyetat0.F90

Timestamp:

Mar 23, 2021, 4:14:07 PM (3 years ago)

Author:

lmdz-users

Message:

Modifications from Thibaut to create an ESM with interactive CO2 + INCA aerosols

File:

• LMDZ6/trunk/libf/phylmd/phyetat0.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phyetat0.F90

@@ -452 +452 @@
   ENDIF
 
-!--OB now this is for co2i
-  IF (type_trac == 'co2i') THEN
+!--OB now this is for co2i - ThL: and therefore also for inco
+  IF (type_trac == 'co2i' .OR. type_trac == 'inco') THEN
      IF (carbon_cycle_cpl) THEN
         ALLOCATE(co2_send(klon), stat=ierr)