1 |
module conf_dat2d_m |
module conf_dat2d_m |
2 |
|
|
|
! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22 |
|
|
|
|
3 |
IMPLICIT NONE |
IMPLICIT NONE |
4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE conf_dat2d(xd, yd, xf, yf, champd, interbar) |
SUBROUTINE conf_dat2d(xd, yd, xf, yf, champd, interbar) |
8 |
|
|
9 |
! Auteur : P. Le Van |
! From conf_dat2d.F, version 1.2 2006/01/27 15:14:22 |
10 |
|
! Author : P. Le Van |
11 |
|
|
12 |
! Ce sous-programme configure le champ de données 2D 'champd' et |
! Ce sous-programme configure le champ de données 2D 'champd' et |
13 |
! les longitudes et latitudes de telle façon qu'on ait - pi à pi |
! les longitudes et latitudes de telle façon qu'on ait - pi à pi |
26 |
! If required, the longitudes and latitudes are finally replaced |
! If required, the longitudes and latitudes are finally replaced |
27 |
! by their mid-values. |
! by their mid-values. |
28 |
|
|
29 |
use numer_rec, only: assert_eq |
use nr_util, only: assert_eq, pi |
|
use comconst, only: pi |
|
30 |
|
|
31 |
REAL, intent(in):: xd(:) |
REAL, intent(in):: xd(:) |
32 |
! (longitudes, in degrees or radians, in increasing order, from 0° |
! (longitudes, in degrees or radians, in increasing order, from 0° |