Changeset 2735 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Jan 11, 2018 12:01:27 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r2718 r2735 25 25 ! ----------------- 26 26 ! $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 27 30 ! Corrected "Former revisions" section 28 31 ! … … 360 363 ENDDO 361 364 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 362 373 CASE ( 'rho_ocean' ) 363 374 DO i = nxlg, nxrg
Note: See TracChangeset
for help on using the changeset viewer.