Ignore:
Timestamp:
Feb 25, 2019 3:31:42 PM (2 years ago)
Author:
raasch
Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:
1 edited

Legend:

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

    r3655 r3761  
    2626! -----------------
    2727! $Id$
     28! statemnet added to avoid compiler warning
     29!
     30! 3655 2019-01-07 16:51:22Z knoop
    2831! explicit kind settings
    2932!
     
    291294!
    292295!-- Local variables
     296    INTEGER ::  idum  !<
    293297    INTEGER ::  mype  !<
    294298    TYPE(dA_namedef) ::  myname  !<
     
    303307
    304308    CALL pmc_bcast( myname%couple_index, mype, comm=m_to_parent_comm )
     309
     310!
     311!-- Next statement is just to avoid compiler warnings about unused variables
     312    IF ( PRESENT( lastentry ) )  idum = 1
    305313
    306314 END SUBROUTINE pmc_set_dataarray_name_lastentry
Note: See TracChangeset for help on using the changeset viewer.