Changeset 1804 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Apr 5, 2016 4:30:18 PM (8 years ago)

Author:

maronga

Message:

removed parameter file check. update of mrungui for compilation with qt5

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (5 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! Removed code for parameter file check (__check)
 !
 ! Former revisions:
@@ -703 +703 @@
 
              ENDIF
-#if defined( __parallel ) && ! defined ( __check )
+#if defined( __parallel )
              CALL MPI_BARRIER( comm2d, ierr )
 #endif
@@ -925 +925 @@
           ENDIF
        ENDDO
-#if ! defined ( __check )
+
 !
 !--    Exchange of lateral boundary values (parallel computers) and cyclic
@@ -962 +962 @@
           ENDDO
        ENDDO
-#endif
+
     ENDIF
 
-#if ! defined ( __check )
 !
 !-- Preliminary: to be removed after completion of the topography code!
@@ -1736 +1735 @@
                 nzb_tmp, vertical_influence, wall_l, wall_n, wall_r, wall_s )
 
-#endif
 
  END SUBROUTINE init_grid