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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/user_data_output_3d.f90

@@ -1 @@
- SUBROUTINE user_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
-
+!> @file user_data_output_3d.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -47 +46 @@
 ! Description:
 ! ------------
-! Resorts the user-defined output quantity with indices (k,j,i) to a
-! temporary array with indices (i,j,k).
+!> Resorts the user-defined output quantity with indices (k,j,i) to a
+!> temporary array with indices (i,j,k).
 !------------------------------------------------------------------------------!
+ SUBROUTINE user_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
+ 
 
     USE indices
@@ -59 +60 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=*) ::  variable !: 
+    CHARACTER (LEN=*) ::  variable !< 
 
-    INTEGER(iwp) ::  av    !: 
-    INTEGER(iwp) ::  i     !: 
-    INTEGER(iwp) ::  j     !: 
-    INTEGER(iwp) ::  k     !: 
-    INTEGER(iwp) ::  nzb_do !: lower limit of the data output (usually 0)
-    INTEGER(iwp) ::  nzt_do !: vertical upper limit of the data output (usually nz_do3d)
+    INTEGER(iwp) ::  av    !< 
+    INTEGER(iwp) ::  i     !< 
+    INTEGER(iwp) ::  j     !< 
+    INTEGER(iwp) ::  k     !< 
+    INTEGER(iwp) ::  nzb_do !< lower limit of the data output (usually 0)
+    INTEGER(iwp) ::  nzt_do !< vertical upper limit of the data output (usually nz_do3d)
 
-    LOGICAL      ::  found !: 
+    LOGICAL      ::  found !< 
 
-   REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb_do:nzt_do) ::  local_pf !: 
+   REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb_do:nzt_do) ::  local_pf !<