22 |
use indicesol, only: epsfra |
use indicesol, only: epsfra |
23 |
use nr_util, only: pi |
use nr_util, only: pi |
24 |
|
|
25 |
REAL, intent(out):: relief(:, :) ! orographie moyenne |
REAL, intent(out):: relief(:, :) ! (iim + 1, jjm + 1) orographie moyenne |
26 |
|
|
27 |
REAL, intent(out):: zstd_2d(:, :) |
REAL, intent(out):: zstd_2d(:, :) ! (iim + 1, jjm + 1) |
28 |
! (deviation standard de l'orographie sous-maille) |
! (deviation standard de l'orographie sous-maille) |
29 |
|
|
30 |
REAL, intent(out):: zsig_2d(:, :) |
REAL, intent(out):: zsig_2d(:, :) ! (iim + 1, jjm + 1) |
31 |
! (pente de l'orographie sous-maille) |
! (pente de l'orographie sous-maille) |
32 |
|
|
33 |
REAL, intent(out):: zgam_2d(:, :) |
REAL, intent(out):: zgam_2d(:, :) ! (iim + 1, jjm + 1) |
34 |
! (anisotropie de l'orographie sous maille) |
! (anisotropie de l'orographie sous maille) |
35 |
|
|
36 |
REAL, intent(out):: zthe_2d(:, :) |
REAL, intent(out):: zthe_2d(:, :) ! (iim + 1, jjm + 1) |
37 |
! (orientation de l'axe oriente dans la direction de plus grande |
! (orientation de l'axe oriente dans la direction de plus grande |
38 |
! pente de l'orographie sous maille) |
! pente de l'orographie sous maille) |
39 |
|
|
40 |
REAL, intent(out):: zpic_2d(:, :) ! hauteur pics de la SSO |
REAL, intent(out):: zpic_2d(:, :) ! (iim + 1, jjm + 1) |
41 |
REAL, intent(out):: zval_2d(:, :) ! hauteur vallees de la SSO |
! hauteur pics de la SSO |
42 |
|
|
43 |
|
REAL, intent(out):: zval_2d(:, :) ! (iim + 1, jjm + 1) |
44 |
|
! hauteur vallees de la SSO |
45 |
|
|
46 |
! Local: |
! Local: |
47 |
|
|
48 |
INTEGER, SAVE:: iml_rel |
INTEGER iml_rel |
49 |
INTEGER, SAVE:: jml_rel |
INTEGER jml_rel |
50 |
REAL lev(1), date, dt |
REAL lev(1), date, dt |
51 |
INTEGER itau(1), fid |
INTEGER itau(1), fid |
52 |
INTEGER llm_tmp, ttm_tmp |
INTEGER llm_tmp, ttm_tmp |