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

LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90

@@ -242 +242 @@
 !$OMP MASTER
   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")
 !$OMP END MASTER