trunk/filtrez/coefils.f90

module coefils

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

  use dimens_m, only: iim, jjm

  implicit none

  private iim, jjm

  real sddu(iim), sddv(iim)
  real unsddu(iim), unsddv(iim), coefilu(iim, jjm), coefilv(iim, jjm)
  integer modfrstu(jjm), modfrstv(jjm)
  real eignfnu(iim, iim), eignfnv(iim, iim)
  real coefilu2(iim, jjm), coefilv2(iim, jjm)

end module coefils
1	module coefils
2
3	! From filtrez/coefils.h, v 1.1.1.1 2004/05/19 12:53:09
4
5	use dimens_m, only: iim, jjm
6
7	implicit none
8
9	private iim, jjm
10
11	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
17	end module coefils