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 |
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 |
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) |