Changeset 1682 for palm/trunk/SOURCE/advec_v_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_v_up.f90 (modified) (7 diffs)

palm/trunk/SOURCE/advec_v_up.f90

@@ -1 @@
- MODULE advec_v_up_mod
-
+!> @file advec_v_up.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -46 +45 @@
 ! Description:
 ! ------------
-! Advection term for the v velocity-component using 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 the v velocity-component using 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_v_up_mod
+ 
 
     PRIVATE
@@ -63 +64 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE advec_v_up
@@ -84 +87 @@
        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 !<       
 
 
@@ -137 +140 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE advec_v_up_ij( i, j )
@@ -158 +163 @@
        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 !<