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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/palm.f90

@@ -1 @@
- PROGRAM palm
-
+!> @file palm.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 !
 ! Former revisions:
@@ -93 +92 @@
 ! Description:
 ! ------------
-! Large-Eddy Simulation (LES) model for the convective boundary layer, 
-! optimized for use on parallel machines (implementation realized using the
-! Message Passing Interface (MPI)). The model can also be run on vector machines
-! (less well optimized) and workstations. Versions for the different types of 
-! machines are controlled via cpp-directives.
-! Model runs are only feasible using the ksh-script mrun.
+!> Large-Eddy Simulation (LES) model for the convective boundary layer, 
+!> optimized for use on parallel machines (implementation realized using the
+!> Message Passing Interface (MPI)). The model can also be run on vector machines
+!> (less well optimized) and workstations. Versions for the different types of 
+!> machines are controlled via cpp-directives.
+!> Model runs are only feasible using the ksh-script mrun.
 !------------------------------------------------------------------------------!
+ PROGRAM palm
+ 
 
     USE arrays_3d
@@ -149 +150 @@
 !
 !-- Local variables
-    CHARACTER(LEN=9)  ::  time_to_string  !:
-    CHARACTER(LEN=10) ::  env_string      !: to store string of environment var
-    INTEGER(iwp)      ::  env_stat        !: to hold status of GET_ENV
-    INTEGER(iwp)      ::  i               !:
-    INTEGER(iwp)      ::  myid_openmpi    !: OpenMPI local rank for CUDA aware MPI
+    CHARACTER(LEN=9)  ::  time_to_string  !<
+    CHARACTER(LEN=10) ::  env_string      !< to store string of environment var
+    INTEGER(iwp)      ::  env_stat        !< to hold status of GET_ENV
+    INTEGER(iwp)      ::  i               !<
+    INTEGER(iwp)      ::  myid_openmpi    !< OpenMPI local rank for CUDA aware MPI
 #if defined( __openacc )
-    REAL(wp), DIMENSION(100) ::  acc_dum     !:
+    REAL(wp), DIMENSION(100) ::  acc_dum     !<
 #endif