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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/coriolis.f90 (modified) (9 diffs)

palm/trunk/SOURCE/coriolis.f90

@@ -1 @@
- MODULE coriolis_mod
-
+!> @file coriolis.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -56 +55 @@
 ! Description:
 ! ------------
-! Computation of all Coriolis terms in the equations of motion.
-!------------------------------------------------------------------------------!
+!> Computation of all Coriolis terms in the equations of motion.
+!------------------------------------------------------------------------------!
+ MODULE coriolis_mod
+ 
 
     PRIVATE
@@ -75 +76 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points
+! Description:
+! ------------
+!> Call for all grid points
 !------------------------------------------------------------------------------!
     SUBROUTINE coriolis( component )
@@ -93 +96 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  component  !: 
-       INTEGER(iwp) ::  i          !: 
-       INTEGER(iwp) ::  j          !: 
-       INTEGER(iwp) ::  k          !: 
+       INTEGER(iwp) ::  component  !< 
+       INTEGER(iwp) ::  i          !< 
+       INTEGER(iwp) ::  j          !< 
+       INTEGER(iwp) ::  k          !< 
 
 
@@ -157 +160 @@
 
 !------------------------------------------------------------------------------!
-! Call for all grid points - accelerator version
+! Description:
+! ------------
+!> Call for all grid points - accelerator version
 !------------------------------------------------------------------------------!
     SUBROUTINE coriolis_acc( component )
@@ -175 +180 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  component  !: 
-       INTEGER(iwp) ::  i          !:
-       INTEGER(iwp) ::  j          !: 
-       INTEGER(iwp) ::  k          !:
+       INTEGER(iwp) ::  component  !< 
+       INTEGER(iwp) ::  i          !<
+       INTEGER(iwp) ::  j          !< 
+       INTEGER(iwp) ::  k          !<
 
 
@@ -251 +256 @@
 
 !------------------------------------------------------------------------------!
-! Call for grid point i,j
+! Description:
+! ------------
+!> Call for grid point i,j
 !------------------------------------------------------------------------------!
     SUBROUTINE coriolis_ij( i, j, component )
@@ -268 +275 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  component  !: 
-       INTEGER(iwp) ::  i          !:
-       INTEGER(iwp) ::  j          !: 
-       INTEGER(iwp) ::  k          !:
+       INTEGER(iwp) ::  component  !< 
+       INTEGER(iwp) ::  i          !<
+       INTEGER(iwp) ::  j          !< 
+       INTEGER(iwp) ::  k          !<
 
 !