Changeset 172

Timestamp:

Jun 22, 2011, 10:28:16 AM (14 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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/callradite.F (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -752 +752 @@
 - minor improvement to newstart.F (q=x option, check that tracer index 
   provided by user is valid).
+- minor correction to callradite.F (to enable compilation in debug mode
+  with ifort when there is only one tracer).

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