4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE clcdrag(nsrf, speed, t, q, zgeop, ts, qsurf, rugos, pcfm, pcfh) |
SUBROUTINE clcdrag(nsrf, speed, t, q, zgeop, psol, ts, qsurf, rugos, pcfm, & |
8 |
|
pcfh, pref) |
9 |
|
|
10 |
! From LMDZ4/libf/phylmd/clcdrag.F90, version 1.1.1.1, 2004/05/19 12:53:07 |
! From LMDZ4/libf/phylmd/clcdrag.F90, version 1.1.1.1, 2004/05/19 12:53:07 |
11 |
|
|
28 |
|
|
29 |
REAL, intent(in):: q(:) ! (knon) ! humidite de l'air au 1er niveau du modele |
REAL, intent(in):: q(:) ! (knon) ! humidite de l'air au 1er niveau du modele |
30 |
REAL, intent(in):: zgeop(:) ! (knon) géopotentiel au 1er niveau du modèle |
REAL, intent(in):: zgeop(:) ! (knon) géopotentiel au 1er niveau du modèle |
31 |
|
REAL, intent(in) :: psol(:) ! (knon) pression au sol |
32 |
REAL, intent(in):: ts(:) ! (knon) temperature de l'air a la surface |
REAL, intent(in):: ts(:) ! (knon) temperature de l'air a la surface |
33 |
REAL, intent(in):: qsurf(:) ! (knon) humidite de l'air a la surface |
REAL, intent(in):: qsurf(:) ! (knon) humidite de l'air a la surface |
34 |
REAL, intent(in):: rugos(:) ! (knon) rugosit\'e |
REAL, intent(in):: rugos(:) ! (knon) rugosit\'e |
37 |
REAL, intent(out):: pcfh(:) ! (knon) |
REAL, intent(out):: pcfh(:) ! (knon) |
38 |
! drag coefficient pour les flux de chaleur latente et sensible |
! drag coefficient pour les flux de chaleur latente et sensible |
39 |
|
|
40 |
|
REAL, intent(out), optional:: pref(:) ! (knon) pression au niveau zgeop/RG |
41 |
|
|
42 |
! Local: |
! Local: |
43 |
|
|
44 |
! Quelques constantes et options: |
! Quelques constantes et options: |