49 |
! ptimestep physical timestep (s) |
! ptimestep physical timestep (s) |
50 |
! indice sub-surface index |
! indice sub-surface index |
51 |
! snow(klon,nbsrf) snow |
! snow(klon,nbsrf) snow |
52 |
! ptsrf(klon) surface temperature at time-step t (K) |
! ptsrf(knon) surface temperature at time-step t (K) |
53 |
! ptsoil(klon,nsoilmx) temperature inside the ground (K) |
! ptsoil(klon,nsoilmx) temperature inside the ground (K) |
54 |
! pcapcal(klon) surfacic specific heat (W*m-2*s*K-1) |
! pcapcal(klon) surfacic specific heat (W*m-2*s*K-1) |
55 |
! pfluxgrd(klon) surface diffusive flux from ground (Wm-2) |
! pfluxgrd(klon) surface diffusive flux from ground (Wm-2) |
65 |
|
|
66 |
REAL ptimestep |
REAL ptimestep |
67 |
INTEGER indice, knon |
INTEGER indice, knon |
68 |
REAL ptsrf(klon), ptsoil(klon, nsoilmx), snow(klon) |
REAL ptsrf(knon), ptsoil(klon, nsoilmx), snow(klon) |
69 |
REAL pcapcal(klon), pfluxgrd(klon) |
REAL pcapcal(klon), pfluxgrd(klon) |
70 |
|
|
71 |
! ----------------------------------------------------------------------- |
! ----------------------------------------------------------------------- |
99 |
! Depthts: |
! Depthts: |
100 |
! -------- |
! -------- |
101 |
|
|
102 |
REAL fz, rk, fz1, rk1, rk2 |
REAL rk, fz1, rk1, rk2 |
103 |
|
|
|
fz(rk) = fz1*(dalph_soil**rk-1.)/(dalph_soil-1.) |
|
104 |
pfluxgrd(:) = 0. |
pfluxgrd(:) = 0. |
105 |
! calcul de l'inertie thermique a partir de la variable rnat. |
! calcul de l'inertie thermique a partir de la variable rnat. |
106 |
! on initialise a iice meme au-dessus d'un point de mer au cas |
! on initialise a iice meme au-dessus d'un point de mer au cas |
247 |
lambda*zc(ig,1,indice)-ptsrf(ig))/ptimestep |
lambda*zc(ig,1,indice)-ptsrf(ig))/ptimestep |
248 |
END DO |
END DO |
249 |
|
|
250 |
|
contains |
251 |
|
|
252 |
|
real function fz(rk) |
253 |
|
real rk |
254 |
|
fz = fz1*(dalph_soil**rk-1.)/(dalph_soil-1.) |
255 |
|
end function fz |
256 |
|
|
257 |
END SUBROUTINE soil |
END SUBROUTINE soil |
258 |
|
|
259 |
end module soil_m |
end module soil_m |