libf/filtrez/parafilt.f90

module parafilt

  ! From filtrez/parafilt.h, v 1.1.1.1 2004/05/19 12:53:09

  ! La premiere fois que  le Gcm  rentrera  dans le Filtre ,
  ! il indiquera  les bonnes valeurs  de  nfilun , nflius, nfilvn  et 
  ! nfilvs  a  mettre .  Il suffira alors de changer ces valeurs dans
  ! Parameter  ci-dessus  et de relancer  le  run.

  implicit none

  INTEGER, PARAMETER:: nfilun=12, nfilus=11, nfilvn=12, nfilvs=12

end module parafilt
1	guez	5	module parafilt
2	guez	3
3	guez	5	! From filtrez/parafilt.h, v 1.1.1.1 2004/05/19 12:53:09
4
5			! La premiere fois que le Gcm rentrera dans le Filtre ,
6			! il indiquera les bonnes valeurs de nfilun , nflius, nfilvn et
7			! nfilvs a mettre . Il suffira alors de changer ces valeurs dans
8			! Parameter ci-dessus et de relancer le run.
9
10			implicit none
11
12	guez	22	INTEGER, PARAMETER:: nfilun=12, nfilus=11, nfilvn=12, nfilvs=12
13	guez	5
14			end module parafilt