/[lmdze]/trunk/Sources/phylmd/Interface_surf/soil.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Interface_surf/soil.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 175 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
Legend:
Removed from v.175  
changed lines
  Added in v.202
  ViewVC Help
Powered by ViewVC 1.1.21