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

Timestamp:

Nov 14, 2018 1:36:44 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, missing working precision added, missing preprocessor directives added, bugfix concerning allocation of t_surf_wall_v in nopointer case, declaration statements rearranged to avoid compile time errors, mpi_abort arguments replaced to avoid compile errors

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! preprocessor directive added to avoid the compiler to complain about unused
+! variable
+! 
+! 3473 2018-10-30 20:50:15Z suehring
 ! Add virtual measurement module
 ! 
@@ -615 +619 @@
         ONLY:  pcm_init
 
+#if defined( __parallel )
     USE pmc_interface,                                                         &
         ONLY:  nested_run
+#endif
 
     USE radiation_model_mod,                                                   &