8 |
|
|
9 |
contains |
contains |
10 |
|
|
11 |
SUBROUTINE yamada4(dt, g, zlev, zlay, u, v, teta, cd, q2, km, kn, kq, & |
SUBROUTINE yamada4(dt, g, zlev, zlay, u, v, teta, cd, q2, km, kn, kq, ustar) |
|
ustar, iflag_pbl) |
|
12 |
|
|
13 |
! From LMDZ4/libf/phylmd/yamada4.F, version 1.1 2004/06/22 11:45:36 |
! From LMDZ4/libf/phylmd/yamada4.F, version 1.1 2004/06/22 11:45:36 |
14 |
|
|
15 |
use nr_util, only: assert, assert_eq |
USE conf_phys_m, ONLY: iflag_pbl |
16 |
USE dimphy, ONLY: klev |
USE dimphy, ONLY: klev |
17 |
|
use nr_util, only: assert, assert_eq |
18 |
|
|
19 |
REAL, intent(in):: dt ! pas de temps |
REAL, intent(in):: dt ! pas de temps |
20 |
real, intent(in):: g |
real, intent(in):: g |
52 |
REAL kq(:, :) ! (knon, klev + 1) |
REAL kq(:, :) ! (knon, klev + 1) |
53 |
real, intent(in):: ustar(:) ! (knon) |
real, intent(in):: ustar(:) ! (knon) |
54 |
|
|
|
integer, intent(in):: iflag_pbl |
|
|
! iflag_pbl doit valoir 6, 8 ou 9 |
|
|
! l = 6, on prend syst\'ematiquement une longueur d'\'equilibre |
|
|
! iflag_pbl = 6 : Mellor and Yamada 2.0 |
|
|
! iflag_pbl = 8 : Mellor and Yamada 2.5 |
|
|
! iflag_pbl = 9 : un test ? |
|
|
|
|
55 |
! Local: |
! Local: |
56 |
integer knon |
integer knon |
57 |
real kmin, qmin |
real kmin, qmin |