Changeset 3865 for LMDZ6/trunk/libf/dyn3d/dynredem.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/dyn3d/dynredem.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d/dynredem.F90

@@ -227 +227 @@
 !--- Tracers in file "start_trac.nc" (added by Anne)
   lread_inca=.FALSE.; fil="start_trac.nc"
-  IF(type_trac=='inca') INQUIRE(FILE=fil,EXIST=lread_inca)
+  IF(type_trac=='inca' .OR. type_trac=='inco') INQUIRE(FILE=fil,EXIST=lread_inca)
   IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open")