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

Timestamp:

Jun 29, 2017 1:31:14 PM (7 years ago)

Author:

raasch

Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! host-specific settings and checks removed
+! 
+! 2292 2017-06-20 09:51:42Z schwenkel
 ! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 
 ! includes two more prognostic equations for cloud drop concentration (nc)  
@@ -563 +566 @@
 
 !
-!-- Warning, if host is not set
-    IF ( host(1:1) == ' ' )  THEN
-       message_string = '"host" is not set. Please check that environment ' // &
-                        'variable "localhost" & is set before running PALM'
-       CALL message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 )
-    ENDIF
-
-!
 !-- Check the coupling mode
 !> @todo Check if any queries for other coupling modes (e.g. precursor_ocean) are missing
@@ -805 +800 @@
 !
 !-- Check the general loop optimization method
-    IF ( loop_optimization == 'default' )  THEN
-       IF ( host(1:3) == 'nec' )  THEN
-          loop_optimization = 'vector'
-       ELSE
-          loop_optimization = 'cache'
-       ENDIF
-    ENDIF
-
     SELECT CASE ( TRIM( loop_optimization ) )
 
@@ -3830 +3817 @@
 
 !
-!-- Set default value of the time needed to terminate a model run
-    IF ( termination_time_needed == -1.0_wp )  THEN
-       IF ( host(1:3) == 'ibm' )  THEN
-          termination_time_needed = 300.0_wp
-       ELSE
-          termination_time_needed = 35.0_wp
-       ENDIF
-    ENDIF
-
-!
 !-- Check pressure gradient conditions
     IF ( dp_external  .AND.  conserve_volume_flow )  THEN