11 |
use comgeom |
use comgeom |
12 |
use serre |
use serre |
13 |
use parafilt |
use parafilt |
14 |
|
use coefils |
15 |
IMPLICIT NONE |
IMPLICIT NONE |
16 |
c |
c |
17 |
c version 3 ..... |
c version 3 ..... |
19 |
c Correction le 28/10/97 P. Le Van . |
c Correction le 28/10/97 P. Le Van . |
20 |
c ------------------------------------------------------------------- |
c ------------------------------------------------------------------- |
21 |
c ------------------------------------------------------------------- |
c ------------------------------------------------------------------- |
|
include "coefils.h" |
|
22 |
|
|
23 |
REAL dlonu(iim),dlatu(jjm) |
REAL dlonu(iim),dlatu(jjm) |
24 |
REAL rlamda( iim ), eignvl( iim ) |
REAL rlamda( iim ), eignvl( iim ) |