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

Timestamp:

Apr 25, 2014 12:55:07 PM (10 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/advec_ws.f90 (modified) (6 diffs)

palm/trunk/SOURCE/advec_ws.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! missing variables added to ONLY list
 ! 
 ! Former revisions:
@@ -389 +389 @@
 
        USE indices,                                                            &
-           ONLY:  nxl, nxr, nyn, nys, nzb, nzb_max, nzt, wall_flags_0
+           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzb_max,    &
+                  nzt, wall_flags_0
 
        USE kinds
@@ -2230 +2231 @@
 
        USE indices,                                                           &
-           ONLY:  nxl, nxr, nyn, nys, nzb, nzb_max, nzt, wall_flags_0
+           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzb_max,   &
+                  nzt, wall_flags_0
            
        USE kinds
@@ -2749 +2751 @@
 !
 !--    Computation of fluxes and tendency terms
-       !$acc kernels present( ddzw, sk, tend, u, v, w, wall_flags_0, wall_flags_00 )
+       !$acc kernels present( ddzw, sk, tend, u, v, w, wall_flags_0 )
        DO  i = i_left, i_right
           DO  j = j_south, j_north
@@ -3545 +3547 @@
 !
 !--    Computation of fluxes and tendency terms
-       !$acc  kernels present( ddzw, tend, u, v, w, wall_flags_0, wall_flags_00 )
+       !$acc  kernels present( ddzw, tend, u, v, w, wall_flags_0 )
        DO i = i_left, i_right
           DO  j = j_south, j_north
@@ -4349 +4351 @@
 !
 !--    Computation of fluxes and tendency terms
-       !$acc kernels present( ddzw, tend, u, v, w, wall_flags_0, wall_flags_00 )
+       !$acc kernels present( ddzw, tend, u, v, w, wall_flags_0 )
        DO  i = i_left, i_right
           DO  j = j_south, j_north