Parent Directory | Revision Log | Patch
revision 201 by guez, Fri Feb 5 16:02:34 2016 UTC | revision 202 by guez, Wed Jun 8 12:23:41 2016 UTC | |
---|---|---|
# | Line 29 contains | Line 29 contains |
29 | ! with F0 = A + B (Ts(t)) | ! with F0 = A + B (Ts(t)) |
30 | ! Soilcap = B*dt | ! Soilcap = B*dt |
31 | ||
USE dimens_m, only: | ||
32 | USE indicesol | USE indicesol |
33 | USE dimphy | USE dimphy |
34 | USE dimsoil | USE dimsoil |
# | Line 238 contains | Line 237 contains |
237 | contains | contains |
238 | ||
239 | real function fz(rk) | real function fz(rk) |
240 | real rk | |
241 | real, intent(in):: rk | |
242 | ||
243 | !----------------------------------------- | |
244 | ||
245 | fz = fz1*(dalph_soil**rk-1.)/(dalph_soil-1.) | fz = fz1*(dalph_soil**rk-1.)/(dalph_soil-1.) |
246 | ||
247 | end function fz | end function fz |
248 | ||
249 | END SUBROUTINE soil | END SUBROUTINE soil |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |