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