Changeset 3534 for palm/trunk/SOURCE/poismg_mod.f90

Timestamp:

Nov 19, 2018 3:35:16 PM (5 years ago)

Author:

raasch

Message:

inifor integrated in build mechanism, some bugfixes in inifor to avoid compile time errors, batch_scp for sending back the job protocol file is called via login-node if a login-node has been set in the config-file, ssh-calls rearranged to avoid output of system/user-profile messages

File:

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

palm/trunk/SOURCE/poismg_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unnecessary check eliminated
+! 
+! 3524 2018-11-14 13:36:44Z raasch
 ! mpi_abort arguments replaced to avoid compile errors
 ! 
@@ -1189 +1192 @@
              ENDDO
 !
-!++          ATTENTION: Check reason for this error. Remove it or replace WRITE
-!++                     by PALM message
-#if defined ( __parallel )
-             IF ( ind /= ind_even_odd )  THEN
-                WRITE (0,*) 'ERROR ==> illegal ind_even_odd ',ind,ind_even_odd,l
-                CALL MPI_ABORT( MPI_COMM_WORLD, 9999, ierr )
-             ENDIF
-#endif
-!
 !--          Sort the data with odd k index
              DO  k = nzb+1, nzt_mg(l)+1, 2