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

Timestamp:

Mar 3, 2015 2:18:16 PM (9 years ago)

Author:

maronga

Message:

land surface model released

File:

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

palm/trunk/SOURCE/user_data_output_3d.f90

@@ -1 @@
- SUBROUTINE user_data_output_3d( av, variable, found, local_pf, nz_do )
+ SUBROUTINE user_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
 
 !--------------------------------------------------------------------------------!
@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Replaced nzb and nzt+1 with the new array bounds nzb_do and nzt_do.
 ! 
 ! Former revisions:
@@ -62 +62 @@
     INTEGER(iwp) ::  j     !: 
     INTEGER(iwp) ::  k     !: 
-    INTEGER(iwp) ::  nz_do !: 
+    INTEGER(iwp) ::  nzb_do !: lower limit of the data output (usually 0)
+    INTEGER(iwp) ::  nzt_do !: vertical upper limit of the data output (usually nz_do3d)
 
     LOGICAL      ::  found !: 
 
-   REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nz_do) ::  local_pf !: 
+   REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb_do:nzt_do) ::  local_pf !: 
 
 
@@ -82 +83 @@
 !             DO  i = nxlg, nxrg
 !                DO  j = nysg, nyng
-!                   DO  k = nzb, nz_do
+!                   DO  k = nzb_do, nzt_do
 !                      local_pf(i,j,k) = u2(k,j,i)
 !                   ENDDO
@@ -90 +91 @@
 !             DO  i = nxlg, nxrg
 !                DO  j = nysg, nyng
-!                   DO  k = nzb, nz_do
+!                   DO  k = nzb_do, nzt_do
 !                      local_pf(i,j,k) = u2_av(k,j,i)
 !                   ENDDO