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

Timestamp:

Apr 7, 2016 2:23:03 PM (8 years ago)

Author:

raasch

Message:

spectrum renamed spactra_par and further modularized, POINTER-attributes added in coupler-routines to avoid gfortran error messages

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! initialization of spectra quantities moved to spectra_mod
 !
 ! Former revisions:
@@ -309 +309 @@
     USE statistics,                                                            &
         ONLY:  hom, hom_sum, mean_surface_level_height, pr_palm, rmask,        &
-               spectrum_x, spectrum_y, statistic_regions, sums, sums_divnew_l, &
-               sums_divold_l, sums_l, sums_l_l, sums_up_fraction_l,            &
-               sums_wsts_bc_l, ts_value, var_d, weight_pres, weight_substep
+               statistic_regions, sums, sums_divnew_l, sums_divold_l, sums_l,  &
+               sums_l_l, sums_up_fraction_l, sums_wsts_bc_l, ts_value,         &
+               weight_pres, weight_substep
  
     USE surface_layer_fluxes_mod,                                              &
@@ -578 +578 @@
     ENDIF
 
-    IF ( dt_dosp /= 9999999.9_wp )  THEN
-       ALLOCATE( spectrum_x( 1:nx/2, 1:10, 1:10 ),                             &
-                 spectrum_y( 1:ny/2, 1:10, 1:10 ) )
-       spectrum_x = 0.0_wp
-       spectrum_y = 0.0_wp
-
-       ALLOCATE( var_d(nzb:nzt+1) )
-       var_d = 0.0_wp
-    ENDIF
-
 !
 !-- 1D-array for large scale subsidence velocity