Changeset 4867

Timestamp:

Feb 6, 2021 9:28:31 AM (4 years ago)

Author:

moh.hefny

Message:

bugfix in allocating rad_lw_out_av

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! bugfix in allocating rad_lw_out_av
+!
+! 4858 2021-01-29 15:27:59Z raasch
 ! default value for unscheduled calls of the radiation model set to FALSE,
 ! rrtmg input file names changed
@@ -10290 +10293 @@
              CASE ( 'rad_lw_out' )
                 IF ( .NOT. ALLOCATED( rad_lw_out_av ) )  THEN
-                   ALLOCATE( rad_lw_in_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
+                   ALLOCATE( rad_lw_out_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
                 ENDIF
                 rad_lw_out_av = 0.0_wp