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/poismg_mod.f90

    r3241 r3524  
    2525! -----------------
    2626! $Id$
     27! mpi_abort arguments replaced to avoid compile errors
     28!
     29! 3241 2018-09-12 15:02:00Z raasch
    2730! unused variables removed
    2831!
     
    11911194             IF ( ind /= ind_even_odd )  THEN
    11921195                WRITE (0,*) 'ERROR ==> illegal ind_even_odd ',ind,ind_even_odd,l
    1193                 CALL MPI_ABORT(MPI_COMM_WORLD,i,j)
     1196                CALL MPI_ABORT( MPI_COMM_WORLD, 9999, ierr )
    11941197             ENDIF
    11951198#endif
Note: See TracChangeset for help on using the changeset viewer.