Changeset 2171 for LMDZ5/trunk/libf/phylmd/rrtm

Timestamp:

Dec 19, 2014, 4:21:08 PM (10 years ago)

Author:

acozic

Message:

There are some commits that we must not do just before holiday .... so be back to rev 2168

File:

• LMDZ5/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90

@@ -84 +84 @@
   REAL, DIMENSION(klon,klev,naero_tot) :: m_allaer
   REAL, DIMENSION(klon,klev,naero_tot) :: m_allaer_pi !RAF  
-
+  !  REAL, DIMENSION(klon,naero_tot)      :: fractnat_allaer !RAF delete??
+  character(len=8), dimension(nbtr) :: tracname
   integer :: id_ASBCM, id_ASPOMM, id_ASSO4M, id_ASMSAM, id_CSSO4M, id_CSMSAM, id_SSSSM
   integer :: id_CSSSM, id_ASSSM, id_CIDUSTM, id_AIBCM, id_AIPOMM, id_ASNO3M, id_CSNO3M, id_CINO3M
@@ -103 +104 @@
      !--convert to ug m-3 unit for consistency with offline fields
      !
+#ifdef INCA
+     call tracinca_name(tracname)
+#endif
+
      do i=1,nbtr
-        select case(trim(solsym(i)))
+        select case(trim(tracname(i)))
            case ("ASBCM")
               id_ASBCM = i