| 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 | |
|---|
| 8 | COMMON/surfdatl/TESicealbedo |
|---|
| 9 | |
|---|
| 10 | real albedodat ! albedo of bare ground |
|---|
| 11 | real phisfi ! geopotential at ground level |
|---|
| 12 | real albedice ! default albedo for ice (1: North H. 2: South H.) |
|---|
| 13 | real emisice ! ice emissivity; 1:Northern hemisphere 2:Southern hemisphere |
|---|
| 14 | real emissiv ! emissivity of bare ground |
|---|
| 15 | logical TESicealbedo ! use TES ice cap albedoes (if set to .true.) |
|---|
| 16 | real TESice_Ncoef ! coefficient for TES ice albedo in Northern hemisphere |
|---|
| 17 | real TESice_Scoef ! coefficient for TES ice albedo in Southern hemisphere |
|---|
| 18 | real iceradius , dtemisice |
|---|
| 19 | real zmea,zstd,zsig,zgam,zthe |
|---|
