8 |
|
|
9 |
real ap(llm+1), pa ! in Pa |
real ap(llm+1), pa ! in Pa |
10 |
real bp(llm+1), dpres(llm) |
real bp(llm+1), dpres(llm) |
11 |
real presnivs(llm) ! pressions approximatives des milieux couches, en Pa |
real presnivs(llm) ! pressions approximatives des milieux de couches, en Pa |
12 |
real, parameter:: preff = 101325. ! in Pa |
real, parameter:: preff = 101325. ! in Pa |
13 |
real nivsigs(llm), nivsig(llm+1) |
real nivsigs(llm), nivsig(llm+1) |
14 |
|
|
26 |
! "nivsigs" and "nivsig". |
! "nivsigs" and "nivsig". |
27 |
! "pa" should be defined before this procedure is called. |
! "pa" should be defined before this procedure is called. |
28 |
|
|
29 |
use comconst, only: pi |
use numer_rec, only: pi |
30 |
|
|
31 |
REAL s(llm+1) |
REAL s(llm+1) |
32 |
! (atmospheric hybrid sigma-pressure coordinate at the interface |
! "s(l)" is the atmospheric hybrid sigma-pressure coordinate at |
33 |
! between layers "l" and "l-1") |
! the interface between layers "l" and "l-1" |
34 |
|
|
35 |
real ds(llm) |
real ds(llm) |
36 |
! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s" |
! "ds(l)" : épaisseur de la couche "l" dans la coordonnée "s" |