trunk/dyn3d/paramet_m.f90

module paramet_m

  use dimensions, only: iim, jjm, llm

  implicit none

  private iim, jjm, llm

  integer, PARAMETER:: iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3
  integer, PARAMETER:: jjp1 = jjm + 1
  integer, PARAMETER:: llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1
  integer, PARAMETER:: ip1jm = (iim + 1) * jjm
  integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1)
  integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1)
  integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm
  integer, PARAMETER:: ijmllm= ip1jm * llm 

end module paramet_m
1	guez	3	module paramet_m
2
3	guez	265	use dimensions, only: iim, jjm, llm
4	guez	3
5			implicit none
6
7	guez	261	private iim, jjm, llm
8	guez	3
9			integer, PARAMETER:: iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3
10			integer, PARAMETER:: jjp1 = jjm + 1
11	guez	40	integer, PARAMETER:: llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1
12			integer, PARAMETER:: ip1jm = (iim + 1) * jjm
13	guez	56	integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1)
14	guez	107	integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1)
15	guez	40	integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm
16	guez	3	integer, PARAMETER:: ijmllm= ip1jm * llm
17
18			end module paramet_m