Changeset 4867 for palm


Ignore:
Timestamp:
Feb 6, 2021 9:28:31 AM (4 years ago)
Author:
moh.hefny
Message:

bugfix in allocating rad_lw_out_av

File:
1 edited

Legend:

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

    r4858 r4867  
    2727! -----------------
    2828! $Id$
     29! bugfix in allocating rad_lw_out_av
     30!
     31! 4858 2021-01-29 15:27:59Z raasch
    2932! default value for unscheduled calls of the radiation model set to FALSE,
    3033! rrtmg input file names changed
     
    1029010293             CASE ( 'rad_lw_out' )
    1029110294                IF ( .NOT. ALLOCATED( rad_lw_out_av ) )  THEN
    10292                    ALLOCATE( rad_lw_in_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     10295                   ALLOCATE( rad_lw_out_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1029310296                ENDIF
    1029410297                rad_lw_out_av = 0.0_wp
Note: See TracChangeset for help on using the changeset viewer.