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

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3234 2018-09-07 13:46:58Z schwenkel
 ! The increase of dots_num in case of radiation or land surface model must 
 ! be done before user_init is called
@@ -529 +532 @@
 
     USE microphysics_mod,                                                      &
-        ONLY:  collision_turbulence, microphysics_init
+        ONLY:  microphysics_init
 
     USE model_1d_mod,                                                          &
-        ONLY:  e1d, init_1d_model, kh1d, km1d, l1d, rif1d, u1d, us1d, usws1d,  &
-               v1d, vsws1d 
+        ONLY:  init_1d_model, l1d, u1d, v1d
 
     USE multi_agent_system_mod,                                                &
@@ -545 +547 @@
     
     USE particle_attributes,                                                   &
-        ONLY:  particle_advection, use_sgs_for_particles, wang_kernel
+        ONLY:  particle_advection
     
     USE pegrid
@@ -1613 +1615 @@
        
        IF ( random_generator == 'random-parallel' )  THEN
-          CALL init_parallel_random_generator(nx, ny, nys, nyn, nxl, nxr)
+          CALL init_parallel_random_generator( nx, nys, nyn, nxl, nxr )
        ENDIF
 !