/[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

revision 107 by guez, Thu Sep 4 10:05:52 2014 UTC revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# 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.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21