4 |
|
|
5 |
! La premiere fois que le Gcm rentrera dans le Filtre , |
! La premiere fois que le Gcm rentrera dans le Filtre , |
6 |
! il indiquera les bonnes valeurs de nfilun , nflius, nfilvn et |
! il indiquera les bonnes valeurs de nfilun , nflius, nfilvn et |
7 |
! nfilvs a mettre . Il suffira alors de changer ces valeurs dans |
! nfilvs a mettre . Il suffira alors de changer ces valeurs dans |
8 |
! Parameter ci-dessus et de relancer le run. |
! Parameter ci-dessus et de relancer le run. |
9 |
|
|
10 |
|
use dimens_m, only: iim |
11 |
|
|
12 |
implicit none |
implicit none |
13 |
|
|
14 |
|
private iim |
15 |
|
|
16 |
INTEGER, PARAMETER:: nfilun=3, nfilus=2, nfilvn=2, nfilvs=2 |
INTEGER, PARAMETER:: nfilun=3, nfilus=2, nfilvn=2, nfilvs=2 |
17 |
|
|
18 |
|
real matriceun(iim,iim,nfilun), matriceus(iim,iim,nfilus) |
19 |
|
real matricevn(iim,iim,nfilvn), matricevs(iim,iim,nfilvs) |
20 |
|
real matrinvn(iim,iim,nfilun), matrinvs(iim,iim,nfilus) |
21 |
|
|
22 |
end module parafilt |
end module parafilt |