Changeset 2116 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Mar 15, 2019, 4:05:59 PM (6 years ago)

Author:

jvatant

Message:

Fix an error in tracer management in 1D when running with both mufi and chem.
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F (modified) (4 diffs)

trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

@@ -12 +12 @@
      &                     dtemisice
       use comdiurn_h, only: sinlat, coslat, sinlon, coslon
-      use comchem_h, only: nkim, nlaykim_up, ykim_up
+      use comchem_h, only: nkim, nlaykim_up, cnames, ykim_up
       use comsoil_h, only: nsoilmx, layer, mlayer, inertiedat, volcapa
       use phyredem, only: physdem0,physdem1
@@ -780 +780 @@
         do iq=1,nkim
         
-          file_prof = "profile_"//trim(noms(iq))//"_up"
+          file_prof = "profile_"//trim(cnames(iq))//"_up"
 
           INQUIRE(file=trim(file_prof),exist=findprof)
@@ -787 +787 @@
             ! Read profile for upper chemistry specie.
             PRINT *, "Input file found for upper chemistry specie ", 
-     &                trim(noms(iq))//"_up"
+     &                trim(cnames(iq))//"_up"
             OPEN(11,file=trim(file_prof),status='old',form='formatted')
             PRINT *, "---> reading upper profile from input file ..."
@@ -795 +795 @@
           ELSE
             PRINT *, "No input profile found for ",
-     &                trim(noms(iq))//"_up"
+     &                trim(cnames(iq))//"_up"
             PRINT *, "---> we set it to zero - that's bold !!"
           ENDIF