libf/dyn3d/academic.f90

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	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