Ignore:
Timestamp:
Aug 9, 2012 8:28:32 AM (9 years ago)
Author:
fricke
Message:

merge fricke branch back into trunk

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/data_output_2d.f90

    r791 r978  
    44! Current revisions:
    55! -----------------
    6 !
     6! +z0h
    77!
    88! Former revisions:
     
    594594                      DO  j = nysg, nyng
    595595                         local_pf(i,j,nzb+1) =  z0_av(j,i)
     596                      ENDDO
     597                   ENDDO
     598                ENDIF
     599                resorted = .TRUE.
     600                two_d = .TRUE.
     601                level_z(nzb+1) = zu(nzb+1)
     602
     603             CASE ( 'z0h*_xy' )        ! 2d-array
     604                IF ( av == 0 ) THEN
     605                   DO  i = nxlg, nxrg
     606                      DO  j = nysg, nyng
     607                         local_pf(i,j,nzb+1) =  z0h(j,i)
     608                      ENDDO
     609                   ENDDO
     610                ELSE
     611                   DO  i = nxlg, nxrg
     612                      DO  j = nysg, nyng
     613                         local_pf(i,j,nzb+1) =  z0h_av(j,i)
    596614                      ENDDO
    597615                   ENDDO
Note: See TracChangeset for help on using the changeset viewer.