46 |
REAL, dimension(klon), intent(in):: qstar |
REAL, dimension(klon), intent(in):: qstar |
47 |
! qstar---input-R- facteur d'echelle pour l'humidite relative |
! qstar---input-R- facteur d'echelle pour l'humidite relative |
48 |
|
|
49 |
REAL, dimension(klon), intent(out):: pref |
REAL, intent(out):: pref(:) ! (knon) pression au niveau de reference |
|
! pref----input-R- pression au niveau de reference |
|
50 |
REAL, dimension(klon), intent(out):: delu |
REAL, dimension(klon), intent(out):: delu |
51 |
! delu----input-R- anomalie du vent par rapport au 1er niveau |
! delu----input-R- anomalie du vent par rapport au 1er niveau |
52 |
REAL, dimension(klon), intent(out):: delte |
REAL, dimension(klon), intent(out):: delte |
57 |
|
|
58 |
! Local: |
! Local: |
59 |
INTEGER i |
INTEGER i |
60 |
REAL, dimension(klon):: cdram, cdrah, cdran, zri1, gref |
REAL, dimension(klon):: cdram, cdrah, gref |
61 |
|
|
62 |
!------------------------------------------------------------------------- |
!------------------------------------------------------------------------- |
63 |
|
|
68 |
! Richardson at reference level |
! Richardson at reference level |
69 |
|
|
70 |
CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), & |
CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), & |
71 |
gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, cdrah, cdran, & |
gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, cdrah, pref) |
|
zri1, pref) |
|
72 |
|
|
73 |
DO i = 1, knon |
DO i = 1, knon |
74 |
delu(i) = ustar(i) / sqrt(cdram(i)) |
delu(i) = ustar(i) / sqrt(cdram(i)) |