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)*( 2*llm+1) + ijmllm |
20 |
|
|
integer, PARAMETER:: jcfil=jjm/2+5, jcfllm=jcfil*llm |
21 |
|
|
|
22 |
|
|
end module paramet_m |