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

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

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

trunk/phylmd/Interface_surf/soil.f revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC trunk/Sources/phylmd/Interface_surf/soil.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 49  contains Line 49  contains
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)
# Line 65  contains Line 65  contains
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      ! -----------------------------------------------------------------------      ! -----------------------------------------------------------------------
# Line 99  contains Line 99  contains
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
# Line 248  contains Line 247  contains
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
Legend:
Removed from v.102  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21