--- trunk/dyn3d/paramet_m.f90 2013/11/15 18:45:49 76 +++ trunk/dyn3d/paramet_m.f90 2014/02/28 17:52:47 79 @@ -9,7 +9,6 @@ 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)