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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/sor.f90 (modified) (4 diffs)

palm/trunk/SOURCE/sor.f90

@@ -1 @@
- SUBROUTINE sor( d, ddzu, ddzw, p )
-
+!> @file sor.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -47 +46 @@
 ! Description:
 ! ------------
-! Solve the Poisson-equation with the SOR-Red/Black-scheme.
+!> Solve the Poisson-equation with the SOR-Red/Black-scheme.
 !------------------------------------------------------------------------------!
+ SUBROUTINE sor( d, ddzu, ddzw, p )
+ 
 
     USE grid_variables,                                                        &
@@ -65 +66 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i              !:
-    INTEGER(iwp) ::  j              !:
-    INTEGER(iwp) ::  k              !:
-    INTEGER(iwp) ::  n              !:
-    INTEGER(iwp) ::  nxl1           !:
-    INTEGER(iwp) ::  nxl2           !:
-    INTEGER(iwp) ::  nys1           !:
-    INTEGER(iwp) ::  nys2           !:
-
-    REAL(wp)     ::  ddzu(1:nz+1)   !:
-    REAL(wp)     ::  ddzw(1:nzt+1)  !:
-
-    REAL(wp)     ::  d(nzb+1:nzt,nys:nyn,nxl:nxr)      !:
-    REAL(wp)     ::  p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !:
-
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f1         !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f2         !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f3         !:
+    INTEGER(iwp) ::  i              !<
+    INTEGER(iwp) ::  j              !<
+    INTEGER(iwp) ::  k              !<
+    INTEGER(iwp) ::  n              !<
+    INTEGER(iwp) ::  nxl1           !<
+    INTEGER(iwp) ::  nxl2           !<
+    INTEGER(iwp) ::  nys1           !<
+    INTEGER(iwp) ::  nys2           !<
+
+    REAL(wp)     ::  ddzu(1:nz+1)   !<
+    REAL(wp)     ::  ddzw(1:nzt+1)  !<
+
+    REAL(wp)     ::  d(nzb+1:nzt,nys:nyn,nxl:nxr)      !<
+    REAL(wp)     ::  p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !<
+
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f1         !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f2         !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f3         !<
 
     ALLOCATE( f1(1:nz), f2(1:nz), f3(1:nz) )