| 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 |
Parent Directory
| 
Revision Log
| 
Patch