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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/advec_s_up.f90 (modified) (7 diffs)

palm/trunk/SOURCE/advec_s_up.f90

@@ -1 @@
- MODULE advec_s_up_mod
-
+!> @file advec_s_up.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -55 +54 @@
 ! Description:
 ! ------------
-! Advection term for scalar quantities using the Upstream scheme.
-! NOTE: vertical advection at k=1 still has wrong grid spacing for w>0!
-!       The same problem occurs for all topography boundaries!
-!------------------------------------------------------------------------------!
+!> Advection term for scalar quantities using the Upstream scheme.
+!> NOTE: vertical advection at k=1 still has wrong grid spacing for w>0!
+!>       The same problem occurs for all topography boundaries!
+!------------------------------------------------------------------------------!
+ MODULE advec_s_up_mod
+ 
 
     PRIVATE
@@ -72 +73 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE advec_s_up( sk )
@@ -94 +97 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !:
-       INTEGER(iwp) ::  j !:
-       INTEGER(iwp) ::  k !:
-
-       REAL(wp) ::  ukomp !:
-       REAL(wp) ::  vkomp !:
-       REAL(wp) ::  wkomp !:
+       INTEGER(iwp) ::  i !<
+       INTEGER(iwp) ::  j !<
+       INTEGER(iwp) ::  k !<
+
+       REAL(wp) ::  ukomp !<
+       REAL(wp) ::  vkomp !<
+       REAL(wp) ::  wkomp !<
 #if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !:
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
 #else
        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
@@ -150 +153 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE advec_s_up_ij( i, j, sk )
@@ -171 +176 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !:
-       INTEGER(iwp) ::  j !:
-       INTEGER(iwp) ::  k !:
-
-       REAL(wp) ::  ukomp !:
-       REAL(wp) ::  vkomp !:
-       REAL(wp) ::  wkomp !:
+       INTEGER(iwp) ::  i !<
+       INTEGER(iwp) ::  j !<
+       INTEGER(iwp) ::  k !<
+
+       REAL(wp) ::  ukomp !<
+       REAL(wp) ::  vkomp !<
+       REAL(wp) ::  wkomp !<
        
 #if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !:
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
 #else
        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk