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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/exchange_horiz.f90 (modified) (6 diffs)

palm/trunk/SOURCE/exchange_horiz.f90

@@ -1 @@
- SUBROUTINE exchange_horiz( ar, nbgp_local)
-
+!> @file exchange_horiz.f90
 !------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -69 +68 @@
 ! Description:
 ! ------------
-! Exchange of lateral boundary values (parallel computers) and cyclic
-! lateral boundary conditions, respectively.
-!------------------------------------------------------------------------------!
+!> Exchange of lateral boundary values (parallel computers) and cyclic
+!> lateral boundary conditions, respectively.
+!------------------------------------------------------------------------------!
+ SUBROUTINE exchange_horiz( ar, nbgp_local)
+ 
 
     USE control_parameters,                                                    &
@@ -90 +91 @@
 
 
-    INTEGER(iwp) ::  i           !:
-    INTEGER(iwp) ::  j           !:
-    INTEGER(iwp) ::  k           !:
-    INTEGER(iwp) ::  nbgp_local  !:
+    INTEGER(iwp) ::  i           !<
+    INTEGER(iwp) ::  j           !<
+    INTEGER(iwp) ::  k           !<
+    INTEGER(iwp) ::  nbgp_local  !<
     
     REAL(wp), DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local,               &
-                        nxl-nbgp_local:nxr+nbgp_local) ::  ar  !:
+                        nxl-nbgp_local:nxr+nbgp_local) ::  ar  !<
                         
 
@@ -290 +291 @@
 
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> @todo Missing subroutine description.
+!------------------------------------------------------------------------------!
  SUBROUTINE exchange_horiz_int( ar, nbgp_local)
 
@@ -305 +311 @@
 
 
-    INTEGER(iwp) ::  nbgp_local  !: number of ghost points
+    INTEGER(iwp) ::  nbgp_local  !< number of ghost points
     
     INTEGER(iwp), DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local,           &
-                        nxl-nbgp_local:nxr+nbgp_local) ::  ar  !: treated array
+                        nxl-nbgp_local:nxr+nbgp_local) ::  ar  !< treated array
 
 #if ! defined( __check )