Ignore:
Timestamp:
Nov 14, 2018 1:36:44 PM (3 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r3494 r3524  
    2525! -----------------
    2626! $Id$
     27! unused variable removed
     28!
     29! 3494 2018-11-06 14:51:27Z suehring
    2730! Last actions for surface output added
    2831!
     
    281284    USE control_parameters,                                                    &
    282285        ONLY:  air_chemistry, constant_diffusion, child_domain,                &
    283                coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
    284                humidity, initializing_actions, io_blocks, io_group,            &
    285                message_string,                                                 &
     286               coupling_char, do2d_at_begin, do3d_at_begin, humidity,          &
     287               initializing_actions, io_blocks, io_group, message_string,      &
    286288               neutral, passive_scalar, runnr, simulated_time_chr, spinup,     &
    287289               time_since_reference_point, user_interface_current_revision,    &
     
    392394#if defined( __parallel )
    393395    CALL MPI_COMM_RANK( comm_palm, myid, ierr )
    394 !
    395 !-- TEST OUTPUT (TO BE REMOVED)
    396     WRITE(9,*) '*** coupling_mode = "', TRIM( coupling_mode ), '"'
    397     FLUSH( 9 )
    398     IF ( TRIM( coupling_mode ) /= 'uncoupled' )  THEN
    399        PRINT*, '*** PE', myid, ' Global target PE:', target_id, &
    400                TRIM( coupling_mode )
    401     ENDIF
    402396#endif
    403397
Note: See TracChangeset for help on using the changeset viewer.