Changeset 658 for trunk/LMDZ.MARS/libf/aeronomars/perosat.F

Timestamp:

May 12, 2012, 8:10:08 AM (13 years ago)

Author:

emillour

Message:

Mars GCM:

• updated high atmosphere photochemistry (jthermcalc.F, param_v4.h, iono.h, paramfoto_compact.F, param_read.F , thermosphere.F).
• minor change in calchim.F90 (to not use maxloc(zycol, dim = 2) function which seems to be a problem for g95) .
• minor bug fix in perosat.F; set tendency on pdqscloud for h2o2 to zero if none is computed.
• in "moldiff.F", changed "tridag" to "tridag_sp", "LUBKSB" to "LUBKSB_SP" and "LUDCMP" to "LUDCMP_SP" to avoid possible conflicts with same routines defined in "moldiff_red.F". Added use of automatic-sized array in "tridag" and "tridag_sp" local array "gam" (to avoid using an a priori oversized local array).

FGG+JYC+EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/perosat.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/perosat.F

@@ -127 +127 @@
 c
            zynew(1)=zysat(1)
+        else
+          pdqscloud(ig,igcm_h2o2)=0
         end if
 c