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

palm/trunk/SOURCE/advec_u_pw.f90

@@ -1 @@
- MODULE advec_u_pw_mod
-
+!> @file advec_u_pw.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -46 +45 @@
 ! Description:
 ! ------------
-! Advection term for u velocity-component using Piacsek and Williams.
-! Vertical advection at the first grid point above the surface is done with
-! normal centred differences, because otherwise no information from the surface
-! would be communicated upwards due to w=0 at K=nzb.
+!> Advection term for u velocity-component using Piacsek and Williams.
+!> Vertical advection at the first grid point above the surface is done with
+!> normal centred differences, because otherwise no information from the surface
+!> would be communicated upwards due to w=0 at K=nzb.
 !------------------------------------------------------------------------------!
+ MODULE advec_u_pw_mod
+ 
 
     PRIVATE
@@ -64 +65 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE advec_u_pw
@@ -85 +88 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !:
-       INTEGER(iwp) ::  j !:
-       INTEGER(iwp) ::  k !:
+       INTEGER(iwp) ::  i !<
+       INTEGER(iwp) ::  j !<
+       INTEGER(iwp) ::  k !<
        
-       REAL(wp)    ::  gu !:
-       REAL(wp)    ::  gv !:
+       REAL(wp)    ::  gu !<
+       REAL(wp)    ::  gv !<
  
        gu = 2.0_wp * u_gtrans
@@ -114 +117 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE advec_u_pw_ij( i, j )
@@ -135 +140 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !:
-       INTEGER(iwp) ::  j !:
-       INTEGER(iwp) ::  k !:
+       INTEGER(iwp) ::  i !<
+       INTEGER(iwp) ::  j !<
+       INTEGER(iwp) ::  k !<
        
-       REAL(wp)    ::  gu !:
-       REAL(wp)    ::  gv !:
+       REAL(wp)    ::  gu !<
+       REAL(wp)    ::  gv !<
 
        gu = 2.0_wp * u_gtrans