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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -1 @@
- SUBROUTINE data_output_2d( mode, av )
-
+!> @file data_output_2d.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -101 +100 @@
 ! Description:
 ! ------------
-! Data output of horizontal cross-sections in netCDF format or binary format
-! compatible to old graphic software iso2d.
-! Attention: The position of the sectional planes is still not always computed 
-! ---------  correctly. (zu is used always)!
+!> Data output of horizontal cross-sections in netCDF format or binary format
+!> compatible to old graphic software iso2d.
+!> Attention: The position of the sectional planes is still not always computed 
+!> ---------  correctly. (zu is used always)!
 !------------------------------------------------------------------------------!
+ SUBROUTINE data_output_2d( mode, av )
+ 
 
     USE arrays_3d,                                                             &
@@ -163 +164 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=2)  ::  do2d_mode    !: 
-    CHARACTER (LEN=2)  ::  mode         !: 
-    CHARACTER (LEN=4)  ::  grid         !: 
-    CHARACTER (LEN=25) ::  section_chr  !: 
-    CHARACTER (LEN=50) ::  rtext        !: 
+    CHARACTER (LEN=2)  ::  do2d_mode    !< 
+    CHARACTER (LEN=2)  ::  mode         !< 
+    CHARACTER (LEN=4)  ::  grid         !< 
+    CHARACTER (LEN=25) ::  section_chr  !< 
+    CHARACTER (LEN=50) ::  rtext        !< 
     
-    INTEGER(iwp) ::  av        !: 
-    INTEGER(iwp) ::  ngp       !: 
-    INTEGER(iwp) ::  file_id   !: 
-    INTEGER(iwp) ::  i         !: 
-    INTEGER(iwp) ::  if        !: 
-    INTEGER(iwp) ::  is        !: 
-    INTEGER(iwp) ::  iis       !: 
-    INTEGER(iwp) ::  j         !: 
-    INTEGER(iwp) ::  k         !: 
-    INTEGER(iwp) ::  l         !: 
-    INTEGER(iwp) ::  layer_xy  !: 
-    INTEGER(iwp) ::  n         !: 
-    INTEGER(iwp) ::  ns        !: 
-    INTEGER(iwp) ::  nzb_do    !: lower limit of the data field (usually nzb)
-    INTEGER(iwp) ::  nzt_do    !: upper limit of the data field (usually nzt+1)
-    INTEGER(iwp) ::  psi       !: 
-    INTEGER(iwp) ::  s         !: 
-    INTEGER(iwp) ::  sender    !: 
-    INTEGER(iwp) ::  ind(4)    !: 
+    INTEGER(iwp) ::  av        !< 
+    INTEGER(iwp) ::  ngp       !< 
+    INTEGER(iwp) ::  file_id   !< 
+    INTEGER(iwp) ::  i         !< 
+    INTEGER(iwp) ::  if        !< 
+    INTEGER(iwp) ::  is        !< 
+    INTEGER(iwp) ::  iis       !< 
+    INTEGER(iwp) ::  j         !< 
+    INTEGER(iwp) ::  k         !< 
+    INTEGER(iwp) ::  l         !< 
+    INTEGER(iwp) ::  layer_xy  !< 
+    INTEGER(iwp) ::  n         !< 
+    INTEGER(iwp) ::  ns        !< 
+    INTEGER(iwp) ::  nzb_do    !< lower limit of the data field (usually nzb)
+    INTEGER(iwp) ::  nzt_do    !< upper limit of the data field (usually nzt+1)
+    INTEGER(iwp) ::  psi       !< 
+    INTEGER(iwp) ::  s         !< 
+    INTEGER(iwp) ::  sender    !< 
+    INTEGER(iwp) ::  ind(4)    !< 
     
-    LOGICAL ::  found          !: 
-    LOGICAL ::  resorted       !: 
-    LOGICAL ::  two_d          !: 
+    LOGICAL ::  found          !< 
+    LOGICAL ::  resorted       !< 
+    LOGICAL ::  two_d          !< 
     
-    REAL(wp) ::  mean_r        !:
-    REAL(wp) ::  s_r2          !:
-    REAL(wp) ::  s_r3          !:
+    REAL(wp) ::  mean_r        !<
+    REAL(wp) ::  s_r2          !<
+    REAL(wp) ::  s_r3          !<
     
-    REAL(wp), DIMENSION(:), ALLOCATABLE     ::  level_z             !:
-    REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d            !:
-    REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d_l          !:
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_pf            !:
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections   !:
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections_l !:
+    REAL(wp), DIMENSION(:), ALLOCATABLE     ::  level_z             !<
+    REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d            !<
+    REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  local_2d_l          !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_pf            !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections   !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_2d_sections_l !<
 
 #if defined( __parallel )
-    REAL(wp), DIMENSION(:,:),   ALLOCATABLE ::  total_2d    !:
-#endif
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !: 
+    REAL(wp), DIMENSION(:,:),   ALLOCATABLE ::  total_2d    !<
+#endif
+    REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !< 
 
     NAMELIST /LOCAL/  rtext