| 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 :: ice_frac_min=0.0001 |
|---|
| 15 | real, parameter :: ice_frac_max=1.!0.9999 |
|---|
| 16 | real, parameter :: h_alb_ice=0.5*ice_den !m->kg/m2 |
|---|
| 17 | real, parameter :: h_ice_thin=0.2*ice_den |
|---|
| 18 | real, parameter :: h_ice_thick=2.5*ice_den |
|---|
| 19 | real, parameter :: h_ice_min=0.000001*ice_den |
|---|
| 20 | real, parameter :: h_ice_max=10000.0 |
|---|
| 21 | |
|---|
| 22 | real, parameter :: capcalocean=50.*4.228e+06!121635.0 |
|---|
| 23 | real, parameter :: capcalseaice=5.1444e+06*0.15 |
|---|
| 24 | real, parameter :: capcalsno=2.3867e+06*0.15 |
|---|
| 25 | |
|---|
| 26 | real, parameter :: epsfra=1.0E-05 |
|---|
| 27 | real, parameter :: soil_hdiff=25000.0 |
|---|
| 28 | |
|---|
| 29 | ! real, parameter :: calice=1.0/(5.1444e+06*0.15) |
|---|
| 30 | ! real, parameter :: tau_gl=86400.*5. |
|---|
| 31 | ! real, parameter :: calsno=1./(2.3867e+06*0.15) |
|---|
| 32 | |
|---|
| 33 | |
|---|
| 34 | |
|---|
| 35 | |
|---|
| 36 | |
|---|
| 37 | |
|---|
| 38 | end module slab_ice_h |
|---|
