Changeset 3773 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Mar 1, 2019 8:56:57 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r3655 r3773 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added output of theta_2m*_xy_av 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! Implementation of the PALM module interface 28 31 ! … … 436 439 ENDIF 437 440 441 CASE ( 'theta_2m*' ) 442 IF ( ALLOCATED( tsurf_av ) ) THEN 443 DO i = nxlg, nxrg 444 DO j = nysg, nyng 445 pt_2m_av(j,i) = pt_2m_av(j,i) / REAL( average_count_3d, KIND=wp ) 446 ENDDO 447 ENDDO 448 CALL exchange_horiz_2d( pt_2m_av, nbgp ) 449 ENDIF 450 438 451 CASE ( 't*' ) 439 452 IF ( ALLOCATED( ts_av ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.