17 |
! Author: P. Le Van |
! Author: P. Le Van |
18 |
|
|
19 |
use numer_rec, only: assert_eq, assert |
use numer_rec, only: assert_eq, assert |
|
|
|
20 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
21 |
use comgeom, only: aire_2d, apoln, apols |
use comgeom, only: aire_2d, apoln, apols |
22 |
|
|
348 |
dym = 0. |
dym = 0. |
349 |
jmod = jmod + 1 |
jmod = jmod + 1 |
350 |
ELSE |
ELSE |
351 |
! yjmod(jmod) == yjdat(jdat) |
! {yjmod(jmod) == yjdat(jdat)} |
352 |
dy = yjmod(jmod) - y0 |
dy = yjmod(jmod) - y0 |
353 |
dym = dym + dy |
dym = dym + dy |
354 |
inter_bary(jmod) = (inter_bary(jmod) + dy * fdat(jdat)) / dym |
inter_bary(jmod) = (inter_bary(jmod) + dy * fdat(jdat)) / dym |