Changeset 3524 for palm/trunk/SOURCE/palm.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/palm.f90 (modified) (3 diffs)

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variable removed
+! 
+! 3494 2018-11-06 14:51:27Z suehring
 ! Last actions for surface output added
 ! 
@@ -281 +284 @@
     USE control_parameters,                                                    &
         ONLY:  air_chemistry, constant_diffusion, child_domain,                &
-               coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
-               humidity, initializing_actions, io_blocks, io_group,            &
-               message_string,                                                 &
+               coupling_char, do2d_at_begin, do3d_at_begin, humidity,          &
+               initializing_actions, io_blocks, io_group, message_string,      &
                neutral, passive_scalar, runnr, simulated_time_chr, spinup,     &
                time_since_reference_point, user_interface_current_revision,    &
@@ -392 +394 @@
 #if defined( __parallel )
     CALL MPI_COMM_RANK( comm_palm, myid, ierr )
-!
-!-- TEST OUTPUT (TO BE REMOVED)
-    WRITE(9,*) '*** coupling_mode = "', TRIM( coupling_mode ), '"'
-    FLUSH( 9 )
-    IF ( TRIM( coupling_mode ) /= 'uncoupled' )  THEN
-       PRINT*, '*** PE', myid, ' Global target PE:', target_id, &
-               TRIM( coupling_mode )
-    ENDIF
 #endif