Ignore:
Timestamp:
Apr 25, 2019 12:33:20 PM (2 years ago)
Author:
kanani
Message:

Bugfixes and clean-up for output quantity theta_2m*

File:
1 edited

Legend:

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

    r3773 r3933  
    2525! -----------------
    2626! $Id$
     27! Bugfix in CASE theta_2m*, removal of redundant code
     28!
     29! 3773 2019-03-01 08:56:57Z maronga
    2730! Added output of theta_2m*_xy_av
    2831!
     
    440443
    441444         CASE ( 'theta_2m*' )
    442              IF ( ALLOCATED( tsurf_av ) ) THEN
     445             IF ( ALLOCATED( pt_2m_av ) ) THEN
    443446                DO  i = nxlg, nxrg
    444447                   DO  j = nysg, nyng
     
    448451                CALL exchange_horiz_2d( pt_2m_av, nbgp )
    449452             ENDIF
    450              
     453
    451454          CASE ( 't*' )
    452455             IF ( ALLOCATED( ts_av ) ) THEN
     
    512515             ENDIF
    513516
    514           CASE ( 'theta_2m' )
    515              IF ( ALLOCATED( pt_2m_av ) ) THEN
    516                 DO  i = nxlg, nxrg
    517                    DO  j = nysg, nyng
    518                       pt_2m_av(j,i) = pt_2m_av(j,i) / REAL( average_count_3d, KIND=wp )
    519                    ENDDO
    520                 ENDDO
    521                 CALL exchange_horiz_2d( pt_2m_av, nbgp )
    522              ENDIF
    523              
    524517          CASE ( 'w' )
    525518             IF ( ALLOCATED( w_av ) ) THEN
Note: See TracChangeset for help on using the changeset viewer.