Changeset 1551 for palm/trunk/SOURCE/user_data_output_2d.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_2d.f90 (modified) (5 diffs)

palm/trunk/SOURCE/user_data_output_2d.f90

@@ -1 @@
- SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d )
+ SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d, 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:
@@ -61 +61 @@
     INTEGER(iwp) ::  j  !: 
     INTEGER(iwp) ::  k  !: 
+    INTEGER(iwp) ::  nzb_do !: lower limit of the domain (usually nzb)
+    INTEGER(iwp) ::  nzt_do !: upper limit of the domain (usually nzt+1)
 
     LOGICAL      ::  found !: 
-    LOGICAL      ::  two_d !: 
+    LOGICAL      ::  two_d !: flag parameter that indicates 2D variables (horizontal cross sections)
 
     REAL(wp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nzt+1) ::  local_pf !: 
@@ -81 +83 @@
 !             DO  i = nxlg, nxrg
 !                DO  j = nysg, nyng
-!                   DO  k = nzb, nzt+1
+!                   DO  k = nzb_do, nzt_do
 !                      local_pf(i,j,k) = u2(k,j,i)
 !                   ENDDO
@@ -89 +91 @@
 !             DO  i = nxlg, nxrg
 !                DO  j = nysg, nyng
-!                   DO  k = nzb, nzt+1
+!                   DO  k = nzb_do, nzt_do
 !                      local_pf(i,j,k) = u2_av(k,j,i)
 !                   ENDDO