source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/slab_ice_h.F90 @ 253

Last change on this file since 253 was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
  • Property svn:executable set to *
File size: 1.3 KB
Line 
1      module slab_ice_h
2
3      implicit none
4
5! noceanmx : number of oceanic layers
6      integer, parameter :: noceanmx = 2 ! number of oceanic layers
7
8      real, parameter :: ice_cap=2.05e+03       ! J/kg/K
9      real, parameter :: ice_den=945.0          ! kg/m3
10      real, parameter :: ice_lat=0.334e+05      ! J/kg
11      real, parameter :: ice_cond=2.1           ! W/m/K
12      real, parameter :: alb_ice_min=0.2       
13      real, parameter :: alb_ice_max=0.65 
14      real, parameter :: alb_ocean=0.07
15      real, parameter :: ice_frac_min=0.0001
16      real, parameter :: ice_frac_max=1.!0.9999
17      real, parameter :: h_alb_ice=0.5*ice_den   !m->kg/m2
18      real, parameter :: h_ice_thin=0.2*ice_den
19      real, parameter :: h_ice_thick=2.5*ice_den
20      real, parameter :: h_ice_min=0.000001*ice_den
21      real, parameter :: h_ice_max=10000.0
22
23      real, parameter :: capcalocean=50.*4.228e+06!121635.0
24      real, parameter :: capcalseaice=5.1444e+06*0.15
25      real, parameter :: capcalsno=2.3867e+06*0.15
26
27      real, parameter :: epsfra=1.0E-05
28      real, parameter :: soil_hdiff=25000.0
29
30!      real, parameter :: calice=1.0/(5.1444e+06*0.15)
31!      real, parameter :: tau_gl=86400.*5.
32!      real, parameter :: calsno=1./(2.3867e+06*0.15)
33
34
35
36
37
38
39      end module slab_ice_h
Note: See TracBrowser for help on using the repository browser.