Changeset 3865 for LMDZ6/trunk/libf/dyn3d

Timestamp:

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

Author:

lmdz-users

Message:

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

Location:

LMDZ6/trunk/libf/dyn3d

Files:

• conf_gcm.F90 (modified) (2 diffs)
• dynredem.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d/conf_gcm.F90

@@ -595 +595 @@
      !Config         'inca' = model de chime INCA 
      !Config         'repr' = model de chime REPROBUS
+     !Config         'inco' = INCA + CO2i (temporaire)
      type_trac = 'lmdz'
      CALL getin('type_trac',type_trac)
@@ -790 +791 @@
      !Config         'inca' = model de chime INCA 
      !Config         'repr' = model de chime REPROBUS
+     !Config         'inco' = INCA + CO2i (temporaire)
      type_trac = 'lmdz'
      CALL getin('type_trac',type_trac)

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")