Changeset 1374 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Apr 25, 2014 12:55:07 PM (11 years ago)

Author:

raasch

Message:

bugfixes:
missing variables added to ONLY lists in USE statements (advec_s_bc, advec_s_pw, advec_s_up, advec_ws, buoyancy, diffusion_e, diffusion_s, fft_xy, flow_statistics, palm, prognostic_equations)
missing module kinds added (cuda_fft_interfaces)
dpk renamed dp (fft_xy)
missing dependency for check_open added (Makefile)
variables removed from acc-present-list (diffusion_e, diffusion_w, diffusivities, production_e, wall_fluxes)
syntax errors removed from openacc-branch (flow_statistics)
USE-statement for nopointer-case added (swap_timelevel)

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: syntax errors removed from openacc-branch
+! missing variables added to ONLY-lists
 ! 
 ! Former revisions:
@@ -1407 +1408 @@
     USE indices,                                                               &
         ONLY:  ngp_2dh, ngp_2dh_s_inner, ngp_3d, ngp_3d_inner, ngp_sums, nxl,  &
-               nxr, nyn, nys, nzb, nzb_diff_s_inner, nzb_s_inner, nzt, nzt_diff
+               nxr, nyn, nys, nzb, nzb_diff_s_inner, nzb_s_inner, nzt,         &
+               nzt_diff, rflags_invers
         
     USE kinds
@@ -1442 +1444 @@
     REAL(wp) ::  ust              !:
     REAL(wp) ::  ust2             !:
-    REAL(wp) ::  u2,              !:
+    REAL(wp) ::  u2               !:
     REAL(wp) ::  vst              !:
     REAL(wp) ::  vst2             !:
@@ -2034 +2036 @@
                    s1 = s1 - 0.5_wp * ( kh(k,j,i) + kh(k+1,j,i) )              &
                                     * ( vpt(k+1,j,i) - vpt(k,j,i) )            &
-                                    * ddzu(k+1) * rmask(j,i,sr) 
+                                    * ddzu(k+1) * rmask(j,i,sr)                &
                                     * rflags_invers(j,i,k+1)
                    s2 = s2 - 0.5_wp * ( kh(k,j,i) + kh(k+1,j,i) )              &