Ignore:
Timestamp:
Mar 3, 2015 2:18:16 PM (7 years ago)
Author:
maronga
Message:

land surface model released

File:
1 edited

Legend:

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

    r1321 r1551  
    1  SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d )
     1 SUBROUTINE user_data_output_2d( av, variable, found, grid, local_pf, two_d, nzb_do, nzt_do )
    22
    33!--------------------------------------------------------------------------------!
     
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Replaced nzb and nzt+1 with the new array bounds nzb_do and nzt_do.
    2323!
    2424! Former revisions:
     
    6161    INTEGER(iwp) ::  j  !:
    6262    INTEGER(iwp) ::  k  !:
     63    INTEGER(iwp) ::  nzb_do !: lower limit of the domain (usually nzb)
     64    INTEGER(iwp) ::  nzt_do !: upper limit of the domain (usually nzt+1)
    6365
    6466    LOGICAL      ::  found !:
    65     LOGICAL      ::  two_d !:
     67    LOGICAL      ::  two_d !: flag parameter that indicates 2D variables (horizontal cross sections)
    6668
    6769    REAL(wp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nzt+1) ::  local_pf !:
     
    8183!             DO  i = nxlg, nxrg
    8284!                DO  j = nysg, nyng
    83 !                   DO  k = nzb, nzt+1
     85!                   DO  k = nzb_do, nzt_do
    8486!                      local_pf(i,j,k) = u2(k,j,i)
    8587!                   ENDDO
     
    8991!             DO  i = nxlg, nxrg
    9092!                DO  j = nysg, nyng
    91 !                   DO  k = nzb, nzt+1
     93!                   DO  k = nzb_do, nzt_do
    9294!                      local_pf(i,j,k) = u2_av(k,j,i)
    9395!                   ENDDO
Note: See TracChangeset for help on using the changeset viewer.