Changeset 552 for trunk/LMDZ.MARS/libf/phymars/inifis.F

Timestamp:

Mar 2, 2012, 9:53:27 AM (13 years ago)

Author:

emillour

Message:

Mars GCM:

bug fix in "aeronomars/moldiff_red.F90" (wrong mmol array size in included

subroutine) + adapted extreme limit test for H to altitudes of ~4000km
(compatble with 50 layer model).

bug fix in "nirco2abs.F" index of "co2" and "o" tracers were hard coded as

1 and 3!

updates from FGG of euvheat.F, callkeys.h and inifis.F to have the

"euveff" parameter read from callphys.def

EM

File:

• trunk/LMDZ.MARS/libf/phymars/inifis.F (modified) (2 diffs)

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

@@ -249 +249 @@
      $              "1-> new correction",
      $              "(matters only if callnirco2=T)"
-         nircorr=0
+         nircorr=1      !default value
          call getin("nircorr",nircorr)
          write(*,*) " nircorr = ",nircorr
@@ -594 +594 @@
          write(*,*) " solarcondate = ",solarcondate
          
+         write(*,*) "UV heating efficiency:",
+     &   "measured values between 0.19 and 0.23 (Fox et al. 1996)",
+     &   "lower values may be used to compensate low 15 um cooling"
+         euveff=0.21 !default value
+         call getin("euveff",euveff)
+         write(*,*) " euveff = ", euveff
 
          if (.not.callthermos) then