15 |
! - pi/2 et pour que la coordonnée pression soit décroissante. |
! - pi/2 et pour que la coordonnée pression soit décroissante. |
16 |
|
|
17 |
use comconst, only: pi |
use comconst, only: pi |
18 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq |
19 |
|
|
20 |
REAL, intent(in):: xd(:), yd(:) ! longitudes et latitudes initiales |
REAL, intent(in):: xd(:), yd(:) ! longitudes et latitudes initiales |
21 |
REAL, intent(in):: zd(:) ! pressure levels, in Pa or hPa |
REAL, intent(in):: zd(:) ! pressure levels, in Pa or hPa |