Index: palm/trunk/SOURCE/diffusion_u.f90
===================================================================
--- palm/trunk/SOURCE/diffusion_u.f90	(revision 1341)
+++ palm/trunk/SOURCE/diffusion_u.f90	(revision 1682)
@@ -1,4 +1,3 @@
- MODULE diffusion_u_mod
-
+!> @file diffusion_u.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20,5 +19,5 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -64,8 +63,10 @@
 ! Description:
 ! ------------
-! Diffusion term of the u-component
-! To do: additional damping (needed for non-cyclic bc) causes bad vectorization
-!        and slows down the speed on NEC about 5-10%
+!> Diffusion term of the u-component
+!> @todo additional damping (needed for non-cyclic bc) causes bad vectorization
+!>       and slows down the speed on NEC about 5-10%
 !------------------------------------------------------------------------------!
+ MODULE diffusion_u_mod
+ 
 
     USE wall_fluxes_mod
@@ -87,5 +88,7 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_u
@@ -109,13 +112,13 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i     !: 
-       INTEGER(iwp) ::  j     !: 
-       INTEGER(iwp) ::  k     !: 
-       REAL(wp)     ::  kmym  !:
-       REAL(wp)     ::  kmyp  !:
-       REAL(wp)     ::  kmzm  !:
-       REAL(wp)     ::  kmzp  !:
-
-       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  usvs  !: 
+       INTEGER(iwp) ::  i     !< 
+       INTEGER(iwp) ::  j     !< 
+       INTEGER(iwp) ::  k     !< 
+       REAL(wp)     ::  kmym  !<
+       REAL(wp)     ::  kmyp  !<
+       REAL(wp)     ::  kmzm  !<
+       REAL(wp)     ::  kmzp  !<
+
+       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  usvs  !< 
 
 !
@@ -254,5 +257,7 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points - accelerator version
+! Description:
+! ------------
+!> Call for all grid points - accelerator version
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_u_acc
@@ -276,13 +281,13 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i     !: 
-       INTEGER(iwp) ::  j     !: 
-       INTEGER(iwp) ::  k     !: 
-       REAL(wp)     ::  kmym  !:
-       REAL(wp)     ::  kmyp  !:
-       REAL(wp)     ::  kmzm  !:
-       REAL(wp)     ::  kmzp  !:
-
-       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  usvs  !: 
+       INTEGER(iwp) ::  i     !< 
+       INTEGER(iwp) ::  j     !< 
+       INTEGER(iwp) ::  k     !< 
+       REAL(wp)     ::  kmym  !<
+       REAL(wp)     ::  kmyp  !<
+       REAL(wp)     ::  kmzm  !<
+       REAL(wp)     ::  kmzp  !<
+
+       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  usvs  !< 
        !$acc declare create ( usvs )
 
@@ -446,5 +451,7 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_u_ij( i, j )
@@ -466,13 +473,13 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i     !: 
-       INTEGER(iwp) ::  j     !: 
-       INTEGER(iwp) ::  k     !: 
-       REAL(wp)     ::  kmym  !:
-       REAL(wp)     ::  kmyp  !:
-       REAL(wp)     ::  kmzm  !:
-       REAL(wp)     ::  kmzp  !:
-
-       REAL(wp), DIMENSION(nzb:nzt+1) ::  usvs  !: 
+       INTEGER(iwp) ::  i     !< 
+       INTEGER(iwp) ::  j     !< 
+       INTEGER(iwp) ::  k     !< 
+       REAL(wp)     ::  kmym  !<
+       REAL(wp)     ::  kmyp  !<
+       REAL(wp)     ::  kmzm  !<
+       REAL(wp)     ::  kmzp  !<
+
+       REAL(wp), DIMENSION(nzb:nzt+1) ::  usvs  !< 
 
 !
