16 |
|
|
17 |
! Author: P. Le Van |
! Author: P. Le Van |
18 |
|
|
19 |
use nrutil, only: assert_eq, assert |
use numer_rec, only: assert_eq, assert |
20 |
|
|
21 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
22 |
use comgeom, only: aire_2d, apoln, apols |
use comgeom, only: aire_2d, apoln, apols |
115 |
! ( L'indice 1 correspond a l'interface mailLE 1 / maille 2) |
! ( L'indice 1 correspond a l'interface mailLE 1 / maille 2) |
116 |
! ( Les abscisses sont exprimées en degres) |
! ( Les abscisses sont exprimées en degres) |
117 |
|
|
118 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq |
119 |
|
|
120 |
IMPLICIT NONE |
IMPLICIT NONE |
121 |
|
|
300 |
! Version unidimensionnelle, en latitude. |
! Version unidimensionnelle, en latitude. |
301 |
! L'indice 1 correspond à l'interface maille 1 -- maille 2. |
! L'indice 1 correspond à l'interface maille 1 -- maille 2. |
302 |
|
|
303 |
use nrutil, only: assert |
use numer_rec, only: assert |
304 |
|
|
305 |
IMPLICIT NONE |
IMPLICIT NONE |
306 |
|
|
377 |
! reverses their order. |
! reverses their order. |
378 |
! Finally, the procedure adds 90° as the last value of the array. |
! Finally, the procedure adds 90° as the last value of the array. |
379 |
|
|
380 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq |
381 |
use comconst, only: pi |
use comconst, only: pi |
382 |
|
|
383 |
IMPLICIT NONE |
IMPLICIT NONE |