18 |
|
|
19 |
SUBROUTINE disvert |
SUBROUTINE disvert |
20 |
|
|
21 |
! From dyn3d/disvert.F, v 1.1.1.1 2004/05/19 12:53:05 |
! From dyn3d/disvert.F, version 1.1.1.1, 2004/05/19 12:53:05 |
22 |
! Author: P. Le Van |
! Author: P. Le Van |
23 |
|
|
24 |
! This procedure sets the vertical grid. It defines the host |
! This procedure sets the vertical grid. It defines the host |
36 |
! the interface between layers "l" and "l-1" |
! the interface between layers "l" and "l-1" |
37 |
|
|
38 |
real ds(llm) |
real ds(llm) |
39 |
! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s" |
! "ds(l)" : \'epaisseur de la couche "l" dans la coordonn\'ee "s" |
40 |
|
|
41 |
INTEGER l, unit |
INTEGER l, unit |
42 |
REAL alpha, x(llm) |
REAL alpha, x(llm) |
48 |
! used only if vert_sampling == "param" |
! used only if vert_sampling == "param" |
49 |
|
|
50 |
! These variables are used only in the case vert_sampling == "param": |
! These variables are used only in the case vert_sampling == "param": |
51 |
real:: deltaz = 0.04 ! épaisseur de la première couche |
real:: deltaz = 0.04 ! \'epaisseur de la premi\`ere couche |
52 |
real:: beta = 1.3 ! facteur d'accroissement en haut |
real:: beta = 1.3 ! facteur d'accroissement en haut |
53 |
real:: k0 = 20. ! nombre de couches dans la transition surface |
real:: k0 = 20. ! nombre de couches dans la transition surface |
54 |
real:: k1 = 1.2 ! nombre de couches dans la transition haute |
real:: k1 = 1.2 ! nombre de couches dans la transition haute |