Sources/dyn3d/academic.f

module academic

  ! From dyn3d/academic.h,v 1.1.1.1 2004/05/19 12:53:05

  use dimens_m, only: iim, jjm, llm

  implicit none

  private iim, jjm, llm

  real tetarappel((iim + 1) * (jjm + 1), llm), taurappel

end module academic
1	guez	3	module academic
2
3			! From dyn3d/academic.h,v 1.1.1.1 2004/05/19 12:53:05
4
5			use dimens_m, only: iim, jjm, llm
6
7			implicit none
8
9			private iim, jjm, llm
10
11			real tetarappel((iim + 1) * (jjm + 1), llm), taurappel
12
13			end module academic