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_3d.f90

    r1321 r1551  
    1  SUBROUTINE user_data_output_3d( av, variable, found, local_pf, nz_do )
     1 SUBROUTINE user_data_output_3d( av, variable, found, local_pf, 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:
     
    6262    INTEGER(iwp) ::  j     !:
    6363    INTEGER(iwp) ::  k     !:
    64     INTEGER(iwp) ::  nz_do !:
     64    INTEGER(iwp) ::  nzb_do !: lower limit of the data output (usually 0)
     65    INTEGER(iwp) ::  nzt_do !: vertical upper limit of the data output (usually nz_do3d)
    6566
    6667    LOGICAL      ::  found !:
    6768
    68    REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nz_do) ::  local_pf !:
     69   REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb_do:nzt_do) ::  local_pf !:
    6970
    7071
     
    8283!             DO  i = nxlg, nxrg
    8384!                DO  j = nysg, nyng
    84 !                   DO  k = nzb, nz_do
     85!                   DO  k = nzb_do, nzt_do
    8586!                      local_pf(i,j,k) = u2(k,j,i)
    8687!                   ENDDO
     
    9091!             DO  i = nxlg, nxrg
    9192!                DO  j = nysg, nyng
    92 !                   DO  k = nzb, nz_do
     93!                   DO  k = nzb_do, nzt_do
    9394!                      local_pf(i,j,k) = u2_av(k,j,i)
    9495!                   ENDDO
Note: See TracChangeset for help on using the changeset viewer.