12 |
integer, PARAMETER:: kftd = iim/2 -ndm |
integer, PARAMETER:: kftd = iim/2 -ndm |
13 |
integer, PARAMETER:: ip1jm = (iim + 1) * jjm |
integer, PARAMETER:: ip1jm = (iim + 1) * jjm |
14 |
integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1) |
integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1) |
15 |
integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1) |
integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1) |
16 |
integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm |
integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm |
17 |
integer, PARAMETER:: ijmllm= ip1jm * llm |
integer, PARAMETER:: ijmllm= ip1jm * llm |
18 |
integer, PARAMETER:: mvar= (iim + 1) * (jjm + 1)*( 2*llm+1) + ijmllm |
integer, PARAMETER:: mvar= (iim + 1) * (jjm + 1)*( 2*llm+1) + ijmllm |