Ignore:
Timestamp:
Jan 11, 2018 12:01:27 PM (4 years ago)
Author:
suehring
Message:

Output of resistance also urban-type surfaces

File:
1 edited

Legend:

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

    r2718 r2735  
    2525! -----------------
    2626! $Id$
     27! output of r_a moved from land-surface to consider also urban-type surfaces
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    360363             ENDDO
    361364
     365         CASE ( 'r_a*' )
     366             DO  i = nxlg, nxrg
     367                DO  j = nysg, nyng
     368                   r_a_av(j,i) = r_a_av(j,i) / REAL( average_count_3d, KIND=wp )
     369                ENDDO
     370             ENDDO
     371             CALL exchange_horiz_2d( r_a_av, nbgp )
     372
    362373          CASE ( 'rho_ocean' )
    363374             DO  i = nxlg, nxrg
Note: See TracChangeset for help on using the changeset viewer.