Changeset 3547 for palm/trunk/SOURCE/data_output_spectra.f90

Timestamp:

Nov 21, 2018 1:21:24 PM (5 years ago)

Author:

suehring

Message:

variable description added some routines

File:

• palm/trunk/SOURCE/data_output_spectra.f90 (modified) (3 diffs)

palm/trunk/SOURCE/data_output_spectra.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3421 2018-10-24 18:39:32Z gronemeier
 ! Renamed output variables
 ! 
@@ -126 +129 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  m       !<
-    INTEGER(iwp) ::  pr      !<
+    INTEGER(iwp) ::  m       !< running index over spectra output
+    INTEGER(iwp) ::  pr      !< index used to assign default quantities to data output
     
     CALL cpu_log( log_point(31), 'data_output_spectra', 'start' )
@@ -267 +270 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=1), INTENT(IN) ::  direction     !<
-
-    INTEGER(iwp), INTENT(IN)      ::  nsp           !<
-
-    INTEGER(iwp)                  ::  i             !<
-    INTEGER(iwp)                  ::  k             !<
-
-    REAL(wp)                      ::  frequency     !<
-
-    REAL(wp), DIMENSION(nx/2)     ::  netcdf_data_x !<
-    REAL(wp), DIMENSION(ny/2)     ::  netcdf_data_y !<
+    CHARACTER (LEN=1), INTENT(IN) ::  direction     !< directio of spectra evaluation
+
+    INTEGER(iwp), INTENT(IN)      ::  nsp           !< number of spectrum
+
+    INTEGER(iwp)                  ::  i             !< running index in frequency space
+    INTEGER(iwp)                  ::  k             !< running index over number of spectrum
+
+    REAL(wp)                      ::  frequency     !< wavenumber
+
+    REAL(wp), DIMENSION(nx/2)     ::  netcdf_data_x !< normalized wavenumber along x written into NetCDF file
+    REAL(wp), DIMENSION(ny/2)     ::  netcdf_data_y !< normalized wavenumber along y written into NetCDF file