14 |
! que la longitude varie de - pi à pi, la latitude de pi/2 à |
! que la longitude varie de - pi à pi, la latitude de pi/2 à |
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 nr_util, only: assert_eq, pi |
|
use nr_util, only: assert_eq |
|
18 |
|
|
19 |
REAL, intent(in):: xd(:), yd(:) ! longitudes et latitudes initiales, en rad |
REAL, intent(in):: xd(:), yd(:) ! longitudes et latitudes initiales, en rad |
20 |
REAL, intent(in):: zd(:) ! pressure levels, in Pa or hPa |
REAL, intent(in):: zd(:) ! pressure levels, in Pa or hPa |