Changeset 3554 for palm/trunk/SOURCE/data_output_mask.f90

Timestamp:

Nov 22, 2018 11:24:52 AM (6 years ago)

Author:

gronemeier

Message:

renamed variable if to ivar; add variable description

File:

• palm/trunk/SOURCE/data_output_mask.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! add variable description
+! 
+! 3467 2018-10-30 19:05:21Z suehring
 ! Implementation of a new aerosol module salsa.
 ! 
@@ -199 +202 @@
     CHARACTER(LEN=5) ::  grid !< flag to distinquish between staggered grids
 
-    INTEGER(iwp) ::  av                      !< 
-    INTEGER(iwp) ::  ngp                     !< 
-    INTEGER(iwp) ::  i                       !< 
-    INTEGER(iwp) ::  ivar                    !<
-    INTEGER(iwp) ::  j                       !< 
-    INTEGER(iwp) ::  k                       !< 
-    INTEGER(iwp) ::  kk                      !< 
-    INTEGER(iwp) ::  n                       !< 
-    INTEGER(iwp) ::  netcdf_data_format_save !<
-    INTEGER(iwp) ::  sender                  !< 
+    INTEGER(iwp) ::  av                      !< flag for (non-)average output
+    INTEGER(iwp) ::  ngp                     !< number of grid points of an output slice
+    INTEGER(iwp) ::  i                       !< loop index
+    INTEGER(iwp) ::  ivar                    !< variable index
+    INTEGER(iwp) ::  j                       !< loop index
+    INTEGER(iwp) ::  k                       !< loop index
+    INTEGER(iwp) ::  kk                      !< vertical index
+    INTEGER(iwp) ::  n                       !< loop index
+    INTEGER(iwp) ::  netcdf_data_format_save !< value of netcdf_data_format
+    INTEGER(iwp) ::  sender                  !< PE id of sending PE
     INTEGER(iwp) ::  topo_top_ind            !< k index of highest horizontal surface
-    INTEGER(iwp) ::  ind(6)                  !< 
-
-    LOGICAL ::  found     !< 
-    LOGICAL ::  resorted  !< 
-
-    REAL(wp) ::  mean_r   !< 
-    REAL(wp) ::  s_r2     !< 
-    REAL(wp) ::  s_r3     !< 
+    INTEGER(iwp) ::  ind(6)                  !< index limits (lower/upper bounds) of array 'local_2d'
+
+    LOGICAL ::  found      !< true if output variable was found
+    LOGICAL ::  resorted   !< true if variable is resorted
+
+    REAL(wp) ::  mean_r    !< mean particle radius
+    REAL(wp) ::  s_r2      !< sum( particle-radius**2 )
+    REAL(wp) ::  s_r3      !< sum( particle-radius**3 )
     
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_pf    !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  local_pf    !< output array
 #if defined( __parallel )
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  total_pf    !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  total_pf    !< collected output array
 #endif
-    REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !<
+    REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !< points to array which shall be output
 
 !