Changeset 3865 for LMDZ6/trunk/libf/dyn3dpar/gcm.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/gcm.F (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dpar/gcm.F

@@ -209 +209 @@
 #endif
 
-      IF (type_trac == 'inca') THEN
+      IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN
 #ifdef INCA
          call init_const_lmdz(
@@ -415 +415 @@
 c   Initialisation des dimensions d'INCA :
 c   --------------------------------------
-      IF (type_trac == 'inca') THEN
+      IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN
 !$OMP PARALLEL
 #ifdef INCA