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

Timestamp:

Sep 8, 2011, 1:59:47 AM (13 years ago)

Author:

aslmd

Message:

08/09/11 == AS

LMDZ.MARS + MESOSCALE.
---> Setting up a more realistic water ice source at the poles (notably outliers)

surfini.F ?
Main changes and bug fixes

• reference to comcstfi.h was wrong. big problem because e.g. pi was not known.
• commented about a problem to be fixed, due to surfini being called before initracer.
• MESOSCALE: put the mesoscale north cap definition into a precompiling flag #MESOSCALE

for the moment: if [alb_mean_TES > 0.26 and lat > 70] then outliers
(previously done in meso_inc_caps.F)

inifis.F ?
Just changed a comment with wrong formatting

--> below, only MESOSCALE

soil.F ?
if somewhere IT > IT_outliers, then makes it = IT_outliers

physiq.F ?
meso_inc/meso_inc_caps.F ?
meso_inc/meso_inc_ini.F ?
meso_inc_caps no longer called. keep for reference for the moment.

meso_inc/meso_inc_var.F ?
deleted lines with *_lim variables, now useless

File:

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

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

@@ -430 +430 @@
          
          write(*,*) "frost thickness threshold for albedo ?"
-         frost_albedo_threshold=0.005 ! 5.4 µm (i.e 0.005 kg/m²)
+         frost_albedo_threshold=0.005 ! 5.4 mic (i.e 0.005 kg.m-2)
          call getin("frost_albedo_threshold",
      &    frost_albedo_threshold)