source: trunk/LMDZ.GENERIC/libf/phystd/surfdat_h.F90 @ 1974

Last change on this file since 1974 was 1482, checked in by mturbet, 9 years ago

Implementation of the Spectral Albedo

File size: 1.0 KB
Line 
1
2       module surfdat_h
3
4       implicit none
5
6       real,allocatable,dimension(:) :: albedodat ! albedo of bare ground stocked in startfi.nc file.
7!$OMP THREADPRIVATE(albedodat)
8       ! Ehouarn: moved inertiedat to comsoil.h
9       !      real inertiedat, ! thermal inertia
10       real,allocatable,dimension(:) :: phisfi ! geopotential at ground level
11!$OMP THREADPRIVATE(phisfi)
12       real,dimension(2) :: emisice ! ice emissivity; 1:Northern hemisphere 2:Southern hemisphere
13       real emissiv
14       real,dimension(2) :: iceradius, dtemisice
15!$OMP THREADPRIVATE(emisice,emissiv,iceradius,dtemisice)
16       real,allocatable,dimension(:) :: zmea,zstd,zsig,zgam,zthe
17!$OMP THREADPRIVATE(zmea,zstd,zsig,zgam,zthe)
18
19       real,allocatable,dimension(:) :: dryness  !"Dryness coefficient" for grnd water ice sublimation
20                                                 ! AS: previously in tracer.h. it is more logical here.
21
22       logical,allocatable,dimension(:) :: watercaptag !! was in watercap.h
23!$OMP THREADPRIVATE(dryness,watercaptag)
24
25       end module surfdat_h
26
Note: See TracBrowser for help on using the repository browser.