Changeset 1324 for palm/trunk/SOURCE/calc_spectra.f90

Timestamp:

Mar 21, 2014 9:13:16 AM (10 years ago)

Author:

suehring

Message:

Bugfixes in ONLY statements

File:

• palm/trunk/SOURCE/calc_spectra.f90 (modified) (6 diffs)

palm/trunk/SOURCE/calc_spectra.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: nzb_x, nzb_yd, nyn_x, nyn_x, nzt_x, nzt_yd belong to transpose_indices 
 !
 ! Former revisions:
@@ -77 +77 @@
 
     USE indices,                                                               &
-        ONLY:  nxl, nxr, nyn, nys, nzb, nzt, nzt_x, nzt_yd
+        ONLY:  nxl, nxr, nyn, nys, nzb, nzt
 
     USE kinds
@@ -274 +274 @@
 
     USE indices,                                                               &
-        ONLY:  nx, ny, nyn_x, nys_x, nzb_x, nzt_x
+        ONLY:  nx, ny
 
     USE kinds
@@ -286 +286 @@
         ONLY:  spectrum_x
 
-    USE transpose_indices
+    USE transpose_indices,                                                     &
+        ONLY:  nyn_x, nys_x, nzb_x, nzt_x
 
 
@@ -411 +412 @@
 
     USE indices,                                                               &
-        ONLY:  nx, ny, nxl_yd, nxr_yd, nzb_yd, nzt_yd
+        ONLY:  nx, ny
 
     USE kinds
@@ -423 +424 @@
         ONLY:  spectrum_y
 
-    USE transpose_indices
+    USE transpose_indices,                                                     &
+        ONLY:  nxl_yd, nxr_yd, nzb_yd, nzt_yd