- Timestamp:
- Feb 6, 2021 9:28:31 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r4858 r4867 27 27 ! ----------------- 28 28 ! $Id$ 29 ! bugfix in allocating rad_lw_out_av 30 ! 31 ! 4858 2021-01-29 15:27:59Z raasch 29 32 ! default value for unscheduled calls of the radiation model set to FALSE, 30 33 ! rrtmg input file names changed … … 10290 10293 CASE ( 'rad_lw_out' ) 10291 10294 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) ) 10293 10296 ENDIF 10294 10297 rad_lw_out_av = 0.0_wp
Note: See TracChangeset
for help on using the changeset viewer.