Changeset 146 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Jan 17, 2008 1:08:34 PM (16 years ago)

Author:

raasch

Message:

further updates for turbulent inflow: PE-grid change for restart is working

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Actual revisions:
 ! -----------------
-! Allocation of hom_sum moved to parin
+! Allocation of hom_sum moved to parin, initialization of spectrum_x|y directly
+! after allocating theses arrays
 !
 ! Former revisions:
@@ -234 +235 @@
        ALLOCATE( spectrum_x( 1:nx/2, 1:10, 1:10 ), &
                  spectrum_y( 1:ny/2, 1:10, 1:10 ) )
+       spectrum_x = 0.0
+       spectrum_y = 0.0
     ENDIF
 
@@ -809 +812 @@
           ql = 0.0
           IF ( precipitation )  precipitation_amount = 0.0
-       ENDIF
-
-!
-!--    Initialize spectra
-       IF ( dt_dosp /= 9999999.9 )  THEN
-          spectrum_x = 0.0
-          spectrum_y = 0.0
        ENDIF