Changeset 1757 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Feb 22, 2016 3:49:32 PM (8 years ago)

Author:

maronga

Message:

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

File:

• palm/trunk/SOURCE/read_3d_binary.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in allocation of radiative heating rates
 ! 
 ! Former revisions:
@@ -898 +898 @@
 
                 CASE ( 'rad_lw_cs_hr_av' )
-                   IF ( .NOT. ALLOCATED( rad_lw_out_av ) )  THEN
+                   IF ( .NOT. ALLOCATED( rad_lw_cs_hr_av ) )  THEN
                       ALLOCATE( rad_lw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
                    ENDIF
@@ -962 +962 @@
 
                 CASE ( 'rad_sw_cs_hr_av' )
-                   IF ( .NOT. ALLOCATED( rad_sw_out_av ) )  THEN
+                   IF ( .NOT. ALLOCATED( rad_sw_cs_hr_av ) )  THEN
                       ALLOCATE( rad_sw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
                    ENDIF