Changeset 3865 for LMDZ6/trunk/libf/dyn3dpar/dynredem.F

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/dyn3dpar/dynredem.F (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dpar/dynredem.F

@@ -568 +568 @@
       call NF95_PUT_VAR(nid,nvarid,teta)
 
-      IF (type_trac == 'inca') THEN
+      IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN
 ! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
          ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
@@ -581 +581 @@
       do iq=1,nqtot 
 
-         IF (type_trac /= 'inca') THEN
+         IF (type_trac /= 'inca' .AND. type_trac /= 'inco') THEN
             ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
             IF (ierr .NE. NF_NOERR) THEN