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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! missing variables added to ONLY lists
 ! 
 ! Former revisions:
@@ -139 +139 @@
                flux_l_pt, flux_l_q, flux_l_qr, flux_l_sa, nr, nr_p, nrsws,     &
                nrswst, pt, ptdf_x, ptdf_y, pt_init, pt_p, prho, q, q_init,     &
-               q_p, qsws, qswst, qr, qr_p, qrsws, qrswst, rdf, rdf_sc, rho,    &
-               sa, sa_init, sa_p, saswsb, saswst, shf, tend, te_m, tnr_m,      &
-               tpt_m, tq_m, tqr_m, tsa_m, tswst, tu_m, tv_m, tw_m, u, ug, u_p, &
-               v, vg, vpt, v_p, w, w_p
+               q_p, qsws, qswst, qr, qr_p, qrsws, qrswst, rdf, rdf_sc,         &
+               ref_state, rho, sa, sa_init, sa_p, saswsb, saswst, shf, tend,   &
+               te_m, tnr_m, tpt_m, tq_m, tqr_m, tsa_m, tswst, tu_m, tv_m,      &
+               tw_m, u, ug, u_p, v, vg, vpt, v_p, w, w_p
         
     USE control_parameters,                                                    &
@@ -245 +245 @@
         ONLY:  production_e, production_e_acc
 
+    USE statistics,                                                            &
+        ONLY:  hom
+
     USE subsidence_mod,                                                        &
         ONLY:  subsidence
@@ -1757 +1760 @@
 !
 !-- u-velocity component
-!++ Statistics still not ported to accelerators
+!++ Statistics still not completely ported to accelerators
     !$acc update device( hom, ref_state )
     CALL cpu_log( log_point(5), 'u-equation', 'start' )