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

Timestamp:

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

Author:

maronga

Message:

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

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (18 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Removed code for parameter file check (__check)
 !
 ! Former revisions:
@@ -425 +425 @@
 
 
-#if ! defined( __check )
        IF ( myid == 0 ) THEN
           CALL MPI_SEND( dt_coupling, 1, MPI_REAL, target_id, 11, comm_inter,  &
@@ -433 +432 @@
        ENDIF
        CALL MPI_BCAST( remote, 1, MPI_REAL, 0, comm2d, ierr)
-#endif      
+ 
        IF ( dt_coupling /= remote )  THEN
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
@@ -441 +440 @@
        ENDIF
        IF ( dt_coupling <= 0.0_wp )  THEN
-#if ! defined( __check )
+
           IF ( myid == 0  ) THEN
              CALL MPI_SEND( dt_max, 1, MPI_REAL, target_id, 19, comm_inter, ierr )
@@ -448 +447 @@
           ENDIF   
           CALL MPI_BCAST( remote, 1, MPI_REAL, 0, comm2d, ierr)
-#endif          
+      
           dt_coupling = MAX( dt_max, remote )
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
@@ -455 +454 @@
           CALL message( 'check_parameters', 'PA0005', 0, 1, 0, 6, 0 )
        ENDIF
-#if ! defined( __check )
+
        IF ( myid == 0 ) THEN
           CALL MPI_SEND( restart_time, 1, MPI_REAL, target_id, 12, comm_inter, &
@@ -463 +462 @@
        ENDIF 
        CALL MPI_BCAST( remote, 1, MPI_REAL, 0, comm2d, ierr)
-#endif      
+  
        IF ( restart_time /= remote )  THEN
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
@@ -470 +469 @@
           CALL message( 'check_parameters', 'PA0006', 1, 2, 0, 6, 0 )
        ENDIF
-#if ! defined( __check )
+
        IF ( myid == 0 ) THEN
           CALL MPI_SEND( dt_restart, 1, MPI_REAL, target_id, 13, comm_inter,   &
@@ -478 +477 @@
        ENDIF   
        CALL MPI_BCAST( remote, 1, MPI_REAL, 0, comm2d, ierr)
-#endif      
+    
        IF ( dt_restart /= remote )  THEN
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
@@ -487 +486 @@
 
        simulation_time_since_reference = end_time - coupling_start_time
-#if ! defined( __check )
+
        IF  ( myid == 0 ) THEN
           CALL MPI_SEND( simulation_time_since_reference, 1, MPI_REAL, target_id, &
@@ -495 +494 @@
        ENDIF 
        CALL MPI_BCAST( remote, 1, MPI_REAL, 0, comm2d, ierr)
-#endif      
+    
        IF ( simulation_time_since_reference /= remote )  THEN
           WRITE( message_string, * ) 'coupling mode "', TRIM( coupling_mode ), &
@@ -504 +503 @@
        ENDIF
 
-#if ! defined( __check )
        IF ( myid == 0 ) THEN
           CALL MPI_SEND( dx, 1, MPI_REAL, target_id, 15, comm_inter, ierr )
@@ -512 +510 @@
        CALL MPI_BCAST( remote, 1, MPI_REAL, 0, comm2d, ierr)
 
-#endif
+
        IF ( coupling_mode == 'atmosphere_to_ocean') THEN
 
@@ -531 +529 @@
        ENDIF
 
-#if ! defined( __check )
        IF ( myid == 0) THEN
           CALL MPI_SEND( dy, 1, MPI_REAL, target_id, 16, comm_inter, ierr )
@@ -538 +535 @@
        ENDIF
        CALL MPI_BCAST( remote, 1, MPI_REAL, 0, comm2d, ierr)
-#endif
+
        IF ( coupling_mode == 'atmosphere_to_ocean') THEN
 
@@ -579 +576 @@
     ENDIF
 
-#if defined( __parallel ) && ! defined ( __check )
+#if defined( __parallel )
 !
 !-- Exchange via intercommunicator
@@ -3856 +3853 @@
 !
 !-- Check the NetCDF data format
-#if ! defined ( __check )
     IF ( netcdf_data_format > 2 )  THEN
 #if defined( __netcdf4 )
@@ -3879 +3875 @@
 #endif
     ENDIF
-#endif
 
 !