/[lmdze]/trunk/Sources/phylmd/coefkz.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/coefkz.f

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

revision 249 by guez, Fri Jan 5 17:15:05 2018 UTC revision 250 by guez, Fri Jan 5 18:18:53 2018 UTC
# Line 4  module coefkz_m Line 4  module coefkz_m
4    
5  contains  contains
6    
7    SUBROUTINE coefkz(nsrf, paprs, pplay, ksta, ksta_ter, ts, u, v, t, q, zgeop, &    SUBROUTINE coefkz(nsrf, paprs, pplay, ts, u, v, t, q, zgeop, coefm, coefh)
        coefm, coefh)  
8    
9      ! Authors: F. Hourdin, M. Forichon, Z. X. Li (LMD/CNRS)      ! Authors: F. Hourdin, M. Forichon, Z. X. Li (LMD/CNRS)
10      ! Date: September 22nd, 1993      ! Date: September 22nd, 1993
# Line 13  contains Line 12  contains
12      ! Objet : calculer les coefficients d'échange turbulent dans      ! Objet : calculer les coefficients d'échange turbulent dans
13      ! l'atmosphère.      ! l'atmosphère.
14    
15        USE clesphys, ONLY: ksta, ksta_ter
16      USE conf_phys_m, ONLY: iflag_pbl      USE conf_phys_m, ONLY: iflag_pbl
17      USE dimphy, ONLY: klev      USE dimphy, ONLY: klev
18      USE fcttre, ONLY: foede, foeew      USE fcttre, ONLY: foede, foeew
# Line 28  contains Line 28  contains
28      real, intent(in):: pplay(:, :) ! (knon, klev)      real, intent(in):: pplay(:, :) ! (knon, klev)
29      ! pression au milieu de chaque couche (en Pa)      ! pression au milieu de chaque couche (en Pa)
30    
     REAL, intent(in):: ksta, ksta_ter  
31      REAL, intent(in):: ts(:) ! (knon) temperature du sol (en Kelvin)      REAL, intent(in):: ts(:) ! (knon) temperature du sol (en Kelvin)
32      REAL, intent(in):: u(:, :), v(:, :) ! (knon, klev) wind      REAL, intent(in):: u(:, :), v(:, :) ! (knon, klev) wind
33      REAL, intent(in):: t(:, :) ! (knon, klev) temperature (K)      REAL, intent(in):: t(:, :) ! (knon, klev) temperature (K)
Legend:
Removed from v.249  
changed lines
  Added in v.250
  ViewVC Help
Powered by ViewVC 1.1.21