Changeset 1374 for palm/trunk/SOURCE/diffusion_e.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/diffusion_e.f90 (modified) (6 diffs)

palm/trunk/SOURCE/diffusion_e.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! missing variables added to ONLY list
+! rif removed from acc-present-list
 ! 
 ! Former revisions:
@@ -113 +114 @@
            
        USE indices,                                                            &
-           ONLY:  nxl, nxr, nyn, nys, nzb, nzb_s_inner, nzt
+           ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzb_s_inner,&
+                  nzt
            
        USE kinds
@@ -317 +319 @@
            
        USE indices,                                                            &
-           ONLY:  i_left, i_right, j_north, j_south, nzb_s_inner, nzt
+           ONLY:  i_left, i_right, j_north, j_south, nxlg, nxrg, nyng, nysg,   &
+                  nzb, nzb_s_inner, nzt
            
        USE kinds
@@ -349 +352 @@
 
           !$acc kernels present( ddzu, ddzw, dd2zu, diss, e, km, l_grid ) &
-          !$acc         present( nzb_s_inner, rif, tend, var, zu, zw )
+          !$acc         present( nzb_s_inner, tend, var, zu, zw )
           DO  i = i_left, i_right
              DO  j = j_south, j_north
@@ -416 +419 @@
 
           !$acc kernels present( ddzu, ddzw, dd2zu, diss, e, km, l_grid ) &
-          !$acc         present( nzb_s_inner, rif, tend, var, zu, zw )
+          !$acc         present( nzb_s_inner, tend, var, zu, zw )
           DO  i = i_left, i_right
              DO  j = j_south, j_north
@@ -513 +516 @@
            
        USE indices,                                                            &
-           ONLY:  nzb, nzb_s_inner, nzt
+           ONLY:  nxlg, nxrg, nyng, nysg, nzb, nzb_s_inner, nzt
            
        USE kinds