--- trunk/libf/dyn3d/paramet_m.f90	2011/02/22 13:49:36	40
+++ trunk/libf/dyn3d/paramet_m.f90	2012/01/10 19:02:02	56
@@ -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:: ip1jmp1 = (iim + 1) * (jjm + 1)
   integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1) 
   integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm
   integer, PARAMETER:: ijmllm= ip1jm * llm