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