source: trunk/LMDZ.MARS/libf/phymars/surfdat.h @ 1009

Last change on this file since 1009 was 283, checked in by aslmd, 13 years ago

LMDZ.MARS:

AS: J'ai fait ce commit et fait a la main un merge avec les modifications entre temps

24/08/11 == TN

Attempts to tune the water cycle by adding outliers

+ A few structural changes !!

  • watercap.h is now obsolete and removed -- all is in surfdat.h
  • watercaptag initialized in surfini.F (up to 7 areas defined) instead of initracer.F
    • settings proposed by AS commented
    • experiments by TN decommented. use with caution.
  • water ice albedo and thermal inertia in callphys.def and inifis.F
  • water ice albedo in surfini.F
  • water ice albedo computation in albedocaps.F90
  • alb_surfice is now obsolete in physiq.F, albedo_h2o_ice is used instead
  • frost_albedo_threshold defined in surfdat.h
  • water ice thermal inertia in soil.F

TODO: * calibrate thermal inertia and ice albedo

  • have a look at subgrid-scale ice with dryness ?
File size: 1.6 KB
Line 
1      COMMON/surfdat/albedodat(ngridmx),                                &
2     &   phisfi(ngridmx),albedice(2),emisice(2),emissiv,                &
3     &   TESice_Ncoef,TESice_Scoef,                                     &
4     &   iceradius(2) , dtemisice(2),                                   &
5     &   zmea(ngridmx),zstd(ngridmx),                                   &
6     &   zsig(ngridmx),zgam(ngridmx),zthe(ngridmx),                     &
7     &   z0(ngridmx),z0_default, albedo_h2o_ice, inert_h2o_ice,         &
8     &   frost_albedo_threshold
9
10      COMMON/surfdatl/TESicealbedo,watercaptag,temptag
11
12
13      real albedodat ! albedo of bare ground
14      real phisfi ! geopotential at ground level
15      real albedice ! default albedo for ice (1: North H. 2: South H.)
16      real emisice ! ice emissivity; 1:Northern hemisphere 2:Southern hemisphere
17      real emissiv ! emissivity of bare ground
18      logical TESicealbedo ! use TES ice cap albedoes (if set to .true.)
19      logical watercaptag(ngridmx) ! flag for water ice surface
20     
21      logical temptag !temp tag for water caps
22     
23      real albedo_h2o_ice ! water ice albedo
24      real inert_h2o_ice ! water ice thermal inertia
25      real frost_albedo_threshold ! water frost thickness on the ground (kg.m^-2, ie mm)
26      real TESice_Ncoef ! coefficient for TES ice albedo in Northern hemisphere
27      real TESice_Scoef ! coefficient for TES ice albedo in Southern hemisphere
28      real iceradius , dtemisice
29      real zmea,zstd,zsig,zgam,zthe
30      real z0 ! surface roughness length (m)
31      real z0_default ! default (constant over planet) surface roughness (m)
Note: See TracBrowser for help on using the repository browser.