13 |
|
|
14 |
! Author: P. Le Van |
! Author: P. Le Van |
15 |
|
|
16 |
use numer_rec, only: assert_eq, assert |
use nr_util, only: assert_eq, assert |
17 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
18 |
use comgeom, only: aire_2d, apoln, apols |
use comgeom, only: aire_2d, apoln, apols |
19 |
|
|
111 |
! ( L'indice 1 correspond a l'interface mailLE 1 / maille 2) |
! ( L'indice 1 correspond a l'interface mailLE 1 / maille 2) |
112 |
! ( Les abscisses sont exprimées en degres) |
! ( Les abscisses sont exprimées en degres) |
113 |
|
|
114 |
use numer_rec, only: assert_eq |
use nr_util, only: assert_eq |
115 |
|
|
116 |
IMPLICIT NONE |
IMPLICIT NONE |
117 |
|
|
296 |
! Version unidimensionnelle, en latitude. |
! Version unidimensionnelle, en latitude. |
297 |
! L'indice 1 correspond à l'interface maille 1 -- maille 2. |
! L'indice 1 correspond à l'interface maille 1 -- maille 2. |
298 |
|
|
299 |
use numer_rec, only: assert |
use nr_util, only: assert |
300 |
|
|
301 |
IMPLICIT NONE |
IMPLICIT NONE |
302 |
|
|
373 |
! reverses their order. |
! reverses their order. |
374 |
! Finally, the procedure adds 90° as the last value of the array. |
! Finally, the procedure adds 90° as the last value of the array. |
375 |
|
|
376 |
use numer_rec, only: assert_eq |
use nr_util, only: assert_eq |
377 |
use comconst, only: pi |
use comconst, only: pi |
378 |
|
|
379 |
IMPLICIT NONE |
IMPLICIT NONE |