Changeset 1025 for palm/trunk/SOURCE

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:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
-!
+! bugfix: swap indices of mask for ghost boundaries
 !
 ! Former revisions:
@@ -1536 +1536 @@
 !-- would bias the statistics
     rmask = 1.0
-    rmask(nxlg:nxl-1,:,:) = 0.0;  rmask(nxr+1:nxrg,:,:) = 0.0
-    rmask(:,nysg:nys-1,:) = 0.0;  rmask(:,nyn+1:nyng,:) = 0.0
+    rmask(:,nxlg:nxl-1,:) = 0.0;  rmask(:,nxr+1:nxrg,:) = 0.0
+    rmask(nysg:nys-1,:,:) = 0.0;  rmask(nyn+1:nyng,:,:) = 0.0
 
 !