Changeset 1025 for palm/trunk


Ignore:
Timestamp:
Oct 7, 2012 4:04:41 PM (12 years ago)
Author:
letzel
Message:

bugfix: swap indices of mask for ghost boundaries (init_3d_model)

File:
1 edited

Legend:

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

    r1017 r1025  
    77! Current revisions:
    88! ------------------
    9 !
     9! bugfix: swap indices of mask for ghost boundaries
    1010!
    1111! Former revisions:
     
    15361536!-- would bias the statistics
    15371537    rmask = 1.0
    1538     rmask(nxlg:nxl-1,:,:) = 0.0;  rmask(nxr+1:nxrg,:,:) = 0.0
    1539     rmask(:,nysg:nys-1,:) = 0.0;  rmask(:,nyn+1:nyng,:) = 0.0
     1538    rmask(:,nxlg:nxl-1,:) = 0.0;  rmask(:,nxr+1:nxrg,:) = 0.0
     1539    rmask(nysg:nys-1,:,:) = 0.0;  rmask(nyn+1:nyng,:,:) = 0.0
    15401540
    15411541!
Note: See TracChangeset for help on using the changeset viewer.