Changeset 2512 for palm/trunk/SOURCE/user_data_output_3d.f90

Timestamp:

Oct 4, 2017 8:26:59 AM (7 years ago)

Author:

raasch

Message:

upper bounds of cross section and 3d output changed from nx+1,ny+1 to nx,ny; no output if redundant ghost layer data to NetCDF files

File:

• palm/trunk/SOURCE/user_data_output_3d.f90 (modified) (4 diffs)

palm/trunk/SOURCE/user_data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! ghost layer points removed from output array local_pf
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -78 +81 @@
     LOGICAL      ::  found !< 
 
-   REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb_do:nzt_do) ::  local_pf !< 
+   REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !< 
 
 
@@ -92 +95 @@
 !       CASE ( 'u2' )
 !          IF ( av == 0 )  THEN
-!             DO  i = nxlg, nxrg
-!                DO  j = nysg, nyng
+!             DO  i = nxl, nxr
+!                DO  j = nys, nyn
 !                   DO  k = nzb_do, nzt_do
 !                      local_pf(i,j,k) = u2(k,j,i)
@@ -100 +103 @@
 !             ENDDO
 !          ELSE
-!             DO  i = nxlg, nxrg
-!                DO  j = nysg, nyng
+!             DO  i = nxl, nxr
+!                DO  j = nys, nyn
 !                   DO  k = nzb_do, nzt_do
 !                      local_pf(i,j,k) = u2_av(k,j,i)