Changeset 1406 for palm/trunk/SOURCE


Ignore:
Timestamp:
May 16, 2014 1:47:01 PM (10 years ago)
Author:
raasch
Message:
 
Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r1403 r1406  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! bugfix: setting of initial velocities at k=1 to zero not in case of a
     23! no-slip boundary condition for uv
    2324!
    2425! Former revisions:
     
    782783!--       in the limiting formula!). The original values are stored to be later
    783784!--       used for volume flow control.
    784           DO  i = nxlg, nxrg
    785              DO  j = nysg, nyng
    786                 u(nzb:nzb_u_inner(j,i)+1,j,i) = 0.0_wp
    787                 v(nzb:nzb_v_inner(j,i)+1,j,i) = 0.0_wp
    788              ENDDO
    789           ENDDO
     785          IF ( ibc_uv_b /= 1 )  THEN
     786             DO  i = nxlg, nxrg
     787                DO  j = nysg, nyng
     788                   u(nzb:nzb_u_inner(j,i)+1,j,i) = 0.0_wp
     789                   v(nzb:nzb_v_inner(j,i)+1,j,i) = 0.0_wp
     790                ENDDO
     791             ENDDO
     792          ENDIF
    790793
    791794          IF ( humidity  .OR.  passive_scalar )  THEN
  • palm/trunk/SOURCE/poisfft.f90

    r1321 r1406  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix for pgi 14.4: declare create moved after array declaration
    2323!
    2424! Former revisions:
     
    220220
    221221       REAL(wp), DIMENSION(1:nz,nys:nyn,nxl:nxr) ::  ar      !:
     222       REAL(wp), DIMENSION(nys:nyn,nxl:nxr,1:nz) ::  ar_inv  !:
    222223       !$acc declare create( ar_inv )
    223        REAL(wp), DIMENSION(nys:nyn,nxl:nxr,1:nz) ::  ar_inv  !:
    224224
    225225       REAL(wp), DIMENSION(:,:,:),   ALLOCATABLE ::  ar1      !:
  • palm/trunk/SOURCE/tridia_solver.f90

    r1343 r1406  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! bugfix for pgi 14.4: declare create moved after array declaration
    2323!
    2424! Former revisions:
     
    336336          REAL(wp)     ::  ar(nxl_z:nxr_z,nys_z:nyn_z,1:nz) !:
    337337
     338          REAL(wp), DIMENSION(nxl_z:nxr_z,nys_z:nyn_z,0:nz-1) ::  ar1 !:
    338339          !$acc declare create( ar1 )
    339           REAL(wp), DIMENSION(nxl_z:nxr_z,nys_z:nyn_z,0:nz-1) ::  ar1 !:
    340340
    341341!
Note: See TracChangeset for help on using the changeset viewer.