32 |
INTEGER ni, nj |
INTEGER ni, nj |
33 |
REAL pn(ni, nj, lmn) ! niveau de pression en pascals |
REAL pn(ni, nj, lmn) ! niveau de pression en pascals |
34 |
|
|
35 |
INTEGER i, j, nhoriz ! nombre de point horizontale (input) |
INTEGER i, j ! nombre de point horizontale (input) |
36 |
|
|
37 |
REAL varo(ni, nj, lmo) ! var dans l'ancienne grille (input) |
REAL varo(ni, nj, lmo) ! var dans l'ancienne grille (input) |
38 |
REAL varn(ni, nj, lmn) ! var dans la nouvelle grille (output) |
REAL varn(ni, nj, lmn) ! var dans la nouvelle grille (output) |
41 |
|
|
42 |
! Autres variables |
! Autres variables |
43 |
! """""""""""""""" |
! """""""""""""""" |
44 |
INTEGER n, ln, lo |
INTEGER ln, lo |
45 |
REAL coef |
REAL coef |
46 |
|
|
47 |
! run |
! run |