--- trunk/dyn3d/paramet_m.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/paramet_m.f	2014/09/11 15:09:15	107
@@ -12,7 +12,7 @@
   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:: 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