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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -1 @@
- SUBROUTINE init_pegrid
-
+!> @file init_pegrid.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -114 +113 @@
 ! Description:
 ! ------------
-! Determination of the virtual processor topology (if not prescribed by the
-! user)and computation of the grid point number and array bounds of the local
-! domains.
+!> Determination of the virtual processor topology (if not prescribed by the
+!> user)and computation of the grid point number and array bounds of the local
+!> domains.
 !------------------------------------------------------------------------------!
+ SUBROUTINE init_pegrid
+ 
 
     USE control_parameters,                                                    &
@@ -149 +150 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i                        !:
-    INTEGER(iwp) ::  id_inflow_l              !:
-    INTEGER(iwp) ::  id_recycling_l           !:
-    INTEGER(iwp) ::  ind(5)                   !:
-    INTEGER(iwp) ::  j                        !:
-    INTEGER(iwp) ::  k                        !:
-    INTEGER(iwp) ::  maximum_grid_level_l     !:
-    INTEGER(iwp) ::  mg_levels_x              !:
-    INTEGER(iwp) ::  mg_levels_y              !:
-    INTEGER(iwp) ::  mg_levels_z              !:
-    INTEGER(iwp) ::  mg_switch_to_pe0_level_l !:
-    INTEGER(iwp) ::  nnx_y                    !:
-    INTEGER(iwp) ::  nnx_z                    !:
-    INTEGER(iwp) ::  nny_x                    !:
-    INTEGER(iwp) ::  nny_z                    !:
-    INTEGER(iwp) ::  nnz_x                    !:
-    INTEGER(iwp) ::  nnz_y                    !:
-    INTEGER(iwp) ::  numproc_sqr              !:
-    INTEGER(iwp) ::  nxl_l                    !:
-    INTEGER(iwp) ::  nxr_l                    !:
-    INTEGER(iwp) ::  nyn_l                    !:
-    INTEGER(iwp) ::  nys_l                    !:
-    INTEGER(iwp) ::  nzb_l                    !:
-    INTEGER(iwp) ::  nzt_l                    !:
-    INTEGER(iwp) ::  omp_get_num_threads      !:
-
-    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  ind_all !:
-    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nxlf    !:
-    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nxrf    !:
-    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nynf    !:
-    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nysf    !:
-
-    INTEGER(iwp), DIMENSION(2) :: pdims_remote          !:
+    INTEGER(iwp) ::  i                        !<
+    INTEGER(iwp) ::  id_inflow_l              !<
+    INTEGER(iwp) ::  id_recycling_l           !<
+    INTEGER(iwp) ::  ind(5)                   !<
+    INTEGER(iwp) ::  j                        !<
+    INTEGER(iwp) ::  k                        !<
+    INTEGER(iwp) ::  maximum_grid_level_l     !<
+    INTEGER(iwp) ::  mg_levels_x              !<
+    INTEGER(iwp) ::  mg_levels_y              !<
+    INTEGER(iwp) ::  mg_levels_z              !<
+    INTEGER(iwp) ::  mg_switch_to_pe0_level_l !<
+    INTEGER(iwp) ::  nnx_y                    !<
+    INTEGER(iwp) ::  nnx_z                    !<
+    INTEGER(iwp) ::  nny_x                    !<
+    INTEGER(iwp) ::  nny_z                    !<
+    INTEGER(iwp) ::  nnz_x                    !<
+    INTEGER(iwp) ::  nnz_y                    !<
+    INTEGER(iwp) ::  numproc_sqr              !<
+    INTEGER(iwp) ::  nxl_l                    !<
+    INTEGER(iwp) ::  nxr_l                    !<
+    INTEGER(iwp) ::  nyn_l                    !<
+    INTEGER(iwp) ::  nys_l                    !<
+    INTEGER(iwp) ::  nzb_l                    !<
+    INTEGER(iwp) ::  nzt_l                    !<
+    INTEGER(iwp) ::  omp_get_num_threads      !<
+
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  ind_all !<
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nxlf    !<
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nxrf    !<
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nynf    !<
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  nysf    !<
+
+    INTEGER(iwp), DIMENSION(2) :: pdims_remote          !<
 
 #if defined( __mpi2 )
-    LOGICAL ::  found                                   !:
+    LOGICAL ::  found                                   !<
 #endif