Changeset 3933 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Apr 25, 2019 12:33:20 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r3773 r3933 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix in CASE theta_2m*, removal of redundant code 28 ! 29 ! 3773 2019-03-01 08:56:57Z maronga 27 30 ! Added output of theta_2m*_xy_av 28 31 ! … … 440 443 441 444 CASE ( 'theta_2m*' ) 442 IF ( ALLOCATED( tsurf_av ) ) THEN445 IF ( ALLOCATED( pt_2m_av ) ) THEN 443 446 DO i = nxlg, nxrg 444 447 DO j = nysg, nyng … … 448 451 CALL exchange_horiz_2d( pt_2m_av, nbgp ) 449 452 ENDIF 450 453 451 454 CASE ( 't*' ) 452 455 IF ( ALLOCATED( ts_av ) ) THEN … … 512 515 ENDIF 513 516 514 CASE ( 'theta_2m' )515 IF ( ALLOCATED( pt_2m_av ) ) THEN516 DO i = nxlg, nxrg517 DO j = nysg, nyng518 pt_2m_av(j,i) = pt_2m_av(j,i) / REAL( average_count_3d, KIND=wp )519 ENDDO520 ENDDO521 CALL exchange_horiz_2d( pt_2m_av, nbgp )522 ENDIF523 524 517 CASE ( 'w' ) 525 518 IF ( ALLOCATED( w_av ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.