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 |