Ignore:
Timestamp:
Apr 25, 2014 12:55:07 PM (7 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/flow_statistics.f90

    r1366 r1374  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! bugfix: syntax errors removed from openacc-branch
     24! missing variables added to ONLY-lists
    2425!
    2526! Former revisions:
     
    14071408    USE indices,                                                               &
    14081409        ONLY:  ngp_2dh, ngp_2dh_s_inner, ngp_3d, ngp_3d_inner, ngp_sums, nxl,  &
    1409                nxr, nyn, nys, nzb, nzb_diff_s_inner, nzb_s_inner, nzt, nzt_diff
     1410               nxr, nyn, nys, nzb, nzb_diff_s_inner, nzb_s_inner, nzt,         &
     1411               nzt_diff, rflags_invers
    14101412       
    14111413    USE kinds
     
    14421444    REAL(wp) ::  ust              !:
    14431445    REAL(wp) ::  ust2             !:
    1444     REAL(wp) ::  u2,              !:
     1446    REAL(wp) ::  u2               !:
    14451447    REAL(wp) ::  vst              !:
    14461448    REAL(wp) ::  vst2             !:
     
    20342036                   s1 = s1 - 0.5_wp * ( kh(k,j,i) + kh(k+1,j,i) )              &
    20352037                                    * ( vpt(k+1,j,i) - vpt(k,j,i) )            &
    2036                                     * ddzu(k+1) * rmask(j,i,sr)
     2038                                    * ddzu(k+1) * rmask(j,i,sr)                &
    20372039                                    * rflags_invers(j,i,k+1)
    20382040                   s2 = s2 - 0.5_wp * ( kh(k,j,i) + kh(k+1,j,i) )              &
Note: See TracChangeset for help on using the changeset viewer.