Changeset 1682 for palm/trunk/SOURCE/diffusion_w.f90

Timestamp:

Oct 7, 2015 11:56:08 PM (9 years ago)

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/diffusion_w.f90 (modified) (9 diffs)

palm/trunk/SOURCE/diffusion_w.f90

@@ -1 @@
- MODULE diffusion_w_mod
-
+!> @file diffusion_w.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -74 +73 @@
 ! Description:
 ! ------------
-! Diffusion term of the w-component
-!------------------------------------------------------------------------------!
+!> Diffusion term of the w-component
+!------------------------------------------------------------------------------!
+ MODULE diffusion_w_mod
+ 
 
     USE wall_fluxes_mod,                                                       &
@@ -96 +97 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_w
@@ -116 +119 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i     !:
-       INTEGER(iwp) ::  j     !:
-       INTEGER(iwp) ::  k     !:
+       INTEGER(iwp) ::  i     !<
+       INTEGER(iwp) ::  j     !<
+       INTEGER(iwp) ::  k     !<
        
-       REAL(wp) ::  kmxm  !:
-       REAL(wp) ::  kmxp  !:
-       REAL(wp) ::  kmym  !:
-       REAL(wp) ::  kmyp  !: 
-
-       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsus  !:
-       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsvs  !:
+       REAL(wp) ::  kmxm  !<
+       REAL(wp) ::  kmxp  !<
+       REAL(wp) ::  kmym  !<
+       REAL(wp) ::  kmyp  !< 
+
+       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsus  !<
+       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsvs  !<
 
 
@@ -221 +224 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points - accelerator version
+! Description:
+! ------------
+!> Call for all grid points - accelerator version
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_w_acc
@@ -242 +247 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i     !:
-       INTEGER(iwp) ::  j     !:
-       INTEGER(iwp) ::  k     !:
+       INTEGER(iwp) ::  i     !<
+       INTEGER(iwp) ::  j     !<
+       INTEGER(iwp) ::  k     !<
        
-       REAL(wp) ::  kmxm  !:
-       REAL(wp) ::  kmxp  !:
-       REAL(wp) ::  kmym  !:
-       REAL(wp) ::  kmyp  !: 
-
-       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsus  !:
-       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsvs  !:
+       REAL(wp) ::  kmxm  !<
+       REAL(wp) ::  kmxp  !<
+       REAL(wp) ::  kmym  !<
+       REAL(wp) ::  kmyp  !< 
+
+       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsus  !<
+       REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) ::  wsvs  !<
        !$acc declare create ( wsus, wsvs )
 
@@ -354 +359 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE diffusion_w_ij( i, j )
@@ -374 +381 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i     !:
-       INTEGER(iwp) ::  j     !:
-       INTEGER(iwp) ::  k     !:
+       INTEGER(iwp) ::  i     !<
+       INTEGER(iwp) ::  j     !<
+       INTEGER(iwp) ::  k     !<
        
-       REAL(wp) ::  kmxm  !:
-       REAL(wp) ::  kmxp  !:
-       REAL(wp) ::  kmym  !:
-       REAL(wp) ::  kmyp  !: 
+       REAL(wp) ::  kmxm  !<
+       REAL(wp) ::  kmxp  !<
+       REAL(wp) ::  kmym  !<
+       REAL(wp) ::  kmyp  !< 
 
        REAL(wp), DIMENSION(nzb:nzt+1) ::  wsus