Index: trunk/NEMO/LIM_SRC_3/limcons.F90
===================================================================
--- trunk/NEMO/LIM_SRC_3/limcons.F90	(revision 834)
+++ trunk/NEMO/LIM_SRC_3/limcons.F90	(revision 921)
@@ -42,35 +42,35 @@
 CONTAINS
 
-!===============================================================================
+   !===============================================================================
 
    SUBROUTINE lim_column_sum(nsum,xin,xout)
-!     !!-------------------------------------------------------------------
-!     !!               ***  ROUTINE lim_column_sum ***
-!     !!
-!     !! ** Purpose : Compute the sum of xin over nsum categories
-!     !!
-!     !! ** Method  : Arithmetics
-!     !!
-!     !! ** Action  : Gets xin(ji,jj,jl) and computes xout(ji,jj)
-!     !!
-!     !! History :
-!     !!   author: William H. Lipscomb, LANL
-!     !!   2.1  !  04-06  (M. Vancoppenolle)   Energy Conservation 
-!     !!---------------------------------------------------------------------
-!     !! * Local variables
+      !     !!-------------------------------------------------------------------
+      !     !!               ***  ROUTINE lim_column_sum ***
+      !     !!
+      !     !! ** Purpose : Compute the sum of xin over nsum categories
+      !     !!
+      !     !! ** Method  : Arithmetics
+      !     !!
+      !     !! ** Action  : Gets xin(ji,jj,jl) and computes xout(ji,jj)
+      !     !!
+      !     !! History :
+      !     !!   author: William H. Lipscomb, LANL
+      !     !!   2.1  !  04-06  (M. Vancoppenolle)   Energy Conservation 
+      !     !!---------------------------------------------------------------------
+      !     !! * Local variables
       INTEGER, INTENT(in) ::     &
-           nsum                  ! number of categories/layers
+         nsum                  ! number of categories/layers
 
       REAL (wp), DIMENSION(jpi, jpj, jpl), INTENT(IN) ::   &
-           xin                   ! input field
+         xin                   ! input field
 
       REAL (wp), DIMENSION(jpi, jpj), INTENT(OUT) ::  &
-           xout                  ! output field
+         xout                  ! output field
       INTEGER ::                 &
-           ji, jj, jl         ! horizontal indices
-
-!     !!---------------------------------------------------------------------
-!     WRITE(numout,*) ' lim_column_sum '
-!     WRITE(numout,*) ' ~~~~~~~~~~~~~~ '
+         ji, jj, jl         ! horizontal indices
+
+      !     !!---------------------------------------------------------------------
+      !     WRITE(numout,*) ' lim_column_sum '
+      !     WRITE(numout,*) ' ~~~~~~~~~~~~~~ '
 
       xout(:,:) = 0.00
@@ -86,5 +86,5 @@
    END SUBROUTINE lim_column_sum
 
-!===============================================================================
+   !===============================================================================
 
    SUBROUTINE lim_column_sum_energy(nsum,nlay,xin,xout)
@@ -106,20 +106,20 @@
       !! * Local variables
       INTEGER, INTENT(in) ::  &
-           nsum,              &  !: number of categories
-           nlay                  !: number of vertical layers
+         nsum,              &  !: number of categories
+         nlay                  !: number of vertical layers
 
       REAL (wp), DIMENSION(jpi, jpj, jkmax, jpl), INTENT(IN) :: &
-           xin                   !: input field
+         xin                   !: input field
 
       REAL (wp), DIMENSION(jpi, jpj), INTENT(OUT) ::  &
-           xout                  !: output field
+         xout                  !: output field
 
       INTEGER ::              &
-           ji, jj,            &  !: horizontal indices
-           jk, jl                !: layer and category  indices
-      !!---------------------------------------------------------------------
-
-!     WRITE(numout,*) ' lim_column_sum_energy '
-!     WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~ '
+         ji, jj,            &  !: horizontal indices
+         jk, jl                !: layer and category  indices
+      !!---------------------------------------------------------------------
+
+      !     WRITE(numout,*) ' lim_column_sum_energy '
+      !     WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~ '
 
       xout(:,:) = 0.00
@@ -137,6 +137,6 @@
    END SUBROUTINE lim_column_sum_energy
 
-!===============================================================================
-   
+   !===============================================================================
+
    SUBROUTINE lim_cons_check(x1, x2, max_err, fieldid)
       !!-------------------------------------------------------------------
@@ -206,5 +206,5 @@
                   WRITE (numout,*) ' Point         : ', ji, jj 
                   WRITE (numout,*) ' lat, lon      : ', gphit(ji,jj), & 
-                                                        glamt(ji,jj)
+                     glamt(ji,jj)
                   WRITE (numout,*) ' Initial value : ', x1(ji,jj)
                   WRITE (numout,*) ' Final value   : ', x2(ji,jj)
