Changeset 172 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Jun 22, 2011, 10:28:16 AM (13 years ago)

Author:

emillour

Message:

Mars GCM

• minor correction to callradite.F (to enable compilation in debug mode with ifort when there is only one tracer).

EM

File:

• trunk/LMDZ.MARS/libf/phymars/callradite.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/callradite.F

@@ -265 +265 @@
           name_iaer(1) = "dust_conrath"   !! default choice is good old Conrath profile
           IF (doubleq.AND.active) name_iaer(1) = "dust_doubleq" !! two-moment scheme
-          IF (water.AND.activice) name_iaer(2) = "h2o_ice"      !! radiatively-active clouds
-          IF (submicron.AND.active) name_iaer(2) = "dust_submicron" !! JBM experimental stuff
+          if (nqmx.gt.1) then
+           ! trick to avoid problems compiling with 1 tracer
+           ! and picky compilers who know name_iaer(2) is out of bounds
+           j=2
+          IF (water.AND.activice) name_iaer(j) = "h2o_ice"      !! radiatively-active clouds
+          IF (submicron.AND.active) name_iaer(j) = "dust_submicron" !! JBM experimental stuff
+          endif ! of if (nqmx.gt.1)
 c        ----------------------------------------------------------