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

Timestamp:

Sep 28, 2018 10:23:08 AM (6 years ago)

Author:

suehring

Message:

Bugfix in allocation of mean_inflow_profiles in case of restarts

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Introduce module parameter for number of inflow profiles
 ! 
 ! Former revisions:
@@ -798 +798 @@
     ALLOCATE( drho_air(nzb:nzt+1) )
     ALLOCATE( drho_air_zw(nzb:nzt+1) )
-
 !
 !-- Density profile calculation for anelastic approximation
@@ -1235 +1234 @@
              ENDDO
           ENDIF
-
 !
 !--       Set velocity components at non-atmospheric / oceanic grid points to 
@@ -1638 +1636 @@
 !--       profiles from the prerun. Alternatively, prescribed profiles
 !--       for u,v-components can be used.
-          ALLOCATE( mean_inflow_profiles(nzb:nzt+1,7) )
+          ALLOCATE( mean_inflow_profiles(nzb:nzt+1,1:num_mean_inflow_profiles) )
 
           IF ( use_prescribed_profile_data )  THEN