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/sum_up_3d_data.f90

    r791 r978  
    44! Current revisions:
    55! -----------------
    6 !
     6! +z0h*
    77!
    88! Former revisions:
     
    227227                ENDIF
    228228                z0_av = 0.0
     229
     230             CASE ( 'z0h*' )
     231                IF ( .NOT. ALLOCATED( z0h_av ) )  THEN
     232                   ALLOCATE( z0h_av(nysg:nyng,nxlg:nxrg) )
     233                ENDIF
     234                z0h_av = 0.0
    229235
    230236             CASE DEFAULT
     
    494500             ENDDO
    495501
     502          CASE ( 'z0h*' )
     503             DO  i = nxlg, nxrg
     504                DO  j = nysg, nyng
     505                   z0h_av(j,i) = z0h_av(j,i) + z0h(j,i)
     506                ENDDO
     507             ENDDO
     508
    496509          CASE DEFAULT
    497510!
Note: See TracChangeset for help on using the changeset viewer.