trunk/dyn3d/paramet_m.f

module paramet_m

  use dimens_m, only: iim, jjm, llm, ndm

  implicit none

  private iim, jjm, llm, ndm

  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:: kftd  = iim/2 -ndm 
  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 
  integer, PARAMETER:: mvar= (iim + 1) * (jjm + 1)*( 2*llm+1) + ijmllm 
  integer, PARAMETER:: jcfil=jjm/2+5, jcfllm=jcfil*llm 

end module paramet_m
1	guez	3	module paramet_m
2
3			use dimens_m, only: iim, jjm, llm, ndm
4
5			implicit none
6
7			private iim, jjm, llm, ndm
8
9			integer, PARAMETER:: iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3
10			integer, PARAMETER:: jjp1 = jjm + 1
11			integer, PARAMETER:: llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1
12
13			integer, PARAMETER:: kftd = iim/2 -ndm
14			integer, PARAMETER:: ip1jm = (iim + 1) * jjm
15			integer, PARAMETER:: ip1jmp1= (iim + 1) * (jjm + 1)
16			integer, PARAMETER:: ip1jmi1= ip1jm - (iim + 1)
17			integer, PARAMETER:: ijp1llm= (iim + 1) * (jjm + 1) * llm
18			integer, PARAMETER:: ijmllm= ip1jm * llm
19			integer, PARAMETER:: mvar= (iim + 1) * (jjm + 1)( 2llm+1) + ijmllm
20			integer, PARAMETER:: jcfil=jjm/2+5, jcfllm=jcfil*llm
21
22			end module paramet_m