--- trunk/dyn3d/laplacien.f 2014/03/05 14:57:53 82 +++ trunk/dyn3d/laplacien.f 2014/08/29 13:00:05 103 @@ -10,7 +10,6 @@ ! P. Le Van ! Calcul de div(grad) de teta. - USE dimens_m, ONLY: llm use divergf_m, only: divergf use filtreg_m, only: filtreg use grad_m, only: grad @@ -20,7 +19,7 @@ REAL, intent(inout):: teta(ip1jmp1, klevel) ! Variables locales: - REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm) + REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel) !-----------------------------------------------------------------