--- trunk/dyn3d/laplacien_gam.f	2014/03/05 12:22:46	80
+++ trunk/dyn3d/laplacien_gam.f90	2014/03/05 14:38:41	81
@@ -1,47 +1,48 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
-!
-      SUBROUTINE laplacien_gam ( klevel, cuvsga, cvusga, unsaigam ,
-     *                        unsapolnga, unsapolsga, teta, divgra )
-
-c  P. Le Van
-c
-c   ************************************************************
-c
-c      ....   calcul de  (div( grad ))   de   teta  .....
-c   ************************************************************
-c    klevel et teta  sont des arguments  d'entree pour le s-prog
-c      divgra     est  un argument  de sortie pour le s-prog
-c
-      use grad_m, only: grad
-      use dimens_m
-      use paramet_m
-      use comgeom
-      IMPLICIT NONE
-c
-
-c
-c    ............     variables  en arguments    ..........
-c
-      INTEGER, intent(in):: klevel
-      REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
-      REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),
-     *     unsapolnga, unsapolsga
-c
-c    ...........    variables  locales    .................
-c
-      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
-c    ......................................................
-
-      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
-c
-      CALL   grad ( klevel, divgra, ghx, ghy )
-c
-      CALL  diverg_gam ( klevel, cuvsga, cvusga,  unsaigam  ,
-     *                 unsapolnga, unsapolsga, ghx , ghy , divgra )
 
-c
+! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1
+! 2004/05/19 12:53:06 lmdzadmin Exp $
 
+SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &
+    unsapolsga, teta, divgra)
 
-      RETURN
-      END
+  ! P. Le Van
+
+  ! ************************************************************
+
+  ! ....   calcul de  (div( grad ))   de   teta  .....
+  ! ************************************************************
+  ! klevel et teta  sont des arguments  d'entree pour le s-prog
+  ! divgra     est  un argument  de sortie pour le s-prog
+
+  USE grad_m, ONLY: grad
+  USE dimens_m
+  USE paramet_m
+  USE comgeom
+  IMPLICIT NONE
+
+
+
+  ! ............     variables  en arguments    ..........
+
+  INTEGER, INTENT (IN) :: klevel
+  REAL teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
+  REAL cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), unsapolnga, &
+    unsapolsga
+
+  ! ...........    variables  locales    .................
+
+  REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm)
+  ! ......................................................
+
+  CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)
+
+  CALL grad(klevel, divgra, ghx, ghy)
+
+  CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &
+    ghx, ghy, divgra)
+
+
+
+
+  RETURN
+END SUBROUTINE laplacien_gam