Ignore:
Timestamp:
Feb 22, 2016 3:49:32 PM (6 years ago)
Author:
maronga
Message:

some changes in land surface model, radiation model, nudging and some minor updates

File:
1 edited

Legend:

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

    r1710 r1757  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix in allocation of radiative heating rates
    2222!
    2323! Former revisions:
     
    898898
    899899                CASE ( 'rad_lw_cs_hr_av' )
    900                    IF ( .NOT. ALLOCATED( rad_lw_out_av ) )  THEN
     900                   IF ( .NOT. ALLOCATED( rad_lw_cs_hr_av ) )  THEN
    901901                      ALLOCATE( rad_lw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    902902                   ENDIF
     
    962962
    963963                CASE ( 'rad_sw_cs_hr_av' )
    964                    IF ( .NOT. ALLOCATED( rad_sw_out_av ) )  THEN
     964                   IF ( .NOT. ALLOCATED( rad_sw_cs_hr_av ) )  THEN
    965965                      ALLOCATE( rad_sw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    966966                   ENDIF
Note: See TracChangeset for help on using the changeset viewer.