Changeset 2422 for palm/trunk/SOURCE

Timestamp:

Sep 8, 2017 8:25:41 AM (7 years ago)

Author:

raasch

Message:

new palm-scripts set to version number 1.0, further check for consistent restart settings

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! error message in case of missing "restart" file activation string
+! 
+! 2375 2017-08-29 14:10:28Z schwenkel
 ! Added aerosol for bulk microphysics
 ! 
@@ -633 +636 @@
 #if defined( __parallel )
 
-!
-!--    NOTE: coupled runs have not been implemented in the check_namelist_files
-!--    program.
-!--    check_namelist_files will need the following information of the other
-!--    model (atmosphere/ocean).
-!       dt_coupling = remote
-!       dt_max = remote
-!       restart_time = remote
-!       dt_restart= remote
-!       simulation_time_since_reference = remote
-!       dx = remote
-
-
        IF ( myid == 0 ) THEN
           CALL MPI_SEND( dt_coupling, 1, MPI_REAL, target_id, 11, comm_inter,  &
@@ -792 +782 @@
        ENDIF
 #else
-       WRITE( message_string, * ) 'coupling requires PALM to be called with',  &
-            ' ''mrun -K parallel'''
+       WRITE( message_string, * ) 'coupling requires PALM to be compiled with',&
+            ' cpp-option "-D__parallel"'
        CALL message( 'check_parameters', 'PA0141', 1, 2, 0, 6, 0 )
 #endif
@@ -812 +802 @@
 #endif
 
+!
+!-- User settings for restart times requires that "restart" has been given as
+!-- file activation string. Otherwise, binary output would not be saved by
+!-- palmrun.
+    IF (  ( restart_time /= 9999999.9_wp  .OR.  dt_restart /= 9999999.9_wp )   &
+         .AND.  .NOT. write_binary )  THEN
+       WRITE( message_string, * ) 'manual restart settings requires file ',    &
+                                  'activation string "restart"'
+       CALL message( 'check_parameters', 'PA0001', 1, 2, 0, 6, 0 )
+    ENDIF
 
 !