1 |
! |
module coefils |
2 |
! $Header: /home/cvsroot/LMDZ4/libf/filtrez/coefils.h,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ |
|
3 |
! |
! From filtrez/coefils.h,v 1.1.1.1 2004/05/19 12:53:09 |
4 |
COMMON/coefils/jfiltnu,jfiltsu,jfiltnv,jfiltsv,sddu(iim),sddv(iim) |
|
5 |
* ,unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm), |
use dimens_m, only: iim, jjm |
6 |
* modfrstu(jjm),modfrstv(jjm),eignfnu(iim,iim),eignfnv(iim,iim) |
|
7 |
* ,coefilu2(iim,jjm),coefilv2(iim,jjm) |
implicit none |
8 |
c |
|
9 |
INTEGER jfiltnu,jfiltsu,jfiltnv,jfiltsv,modfrstu,modfrstv |
private iim, jjm |
10 |
REAL sddu,sddv,unsddu,unsddv,coefilu,coefilv,eignfnu,eignfnv |
|
11 |
REAL coefilu2,coefilv2 |
real sddu(iim),sddv(iim) |
12 |
|
real unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm) |
13 |
|
integer modfrstu(jjm),modfrstv(jjm) |
14 |
|
real eignfnu(iim,iim),eignfnv(iim,iim) |
15 |
|
real coefilu2(iim,jjm),coefilv2(iim,jjm) |
16 |
|
INTEGER jfiltnu,jfiltsu,jfiltnv,jfiltsv |
17 |
|
|
18 |
|
end module coefils |