Changeset 1797 for palm/trunk/SOURCE/header.f90

Timestamp:

Mar 21, 2016 4:50:28 PM (8 years ago)

Author:

raasch

Message:

Introduction of different data transfer modes; restart mechanism adjusted for nested runs; parameter consistency checks for nested runs; further formatting cleanup

File:

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

palm/trunk/SOURCE/header.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! output of nesting datatransfer mode
 !
 ! Former revisions:
@@ -291 +291 @@
 
     USE pmc_interface,                                                         &
-        ONLY:  nested_run, nesting_mode
+        ONLY:  nested_run, nesting_datatransfer_mode, nesting_mode
 
     USE radiation_model_mod,                                                   &
@@ -483 +483 @@
     IF ( nested_run )  THEN
 
-       WRITE ( io, 600 )  TRIM( nesting_mode )
+       WRITE ( io, 600 )  TRIM( nesting_mode ),                                &
+                          TRIM( nesting_datatransfer_mode )
        CALL pmc_get_model_info( ncpl = ncpl, cpl_id = my_cpl_id )
 
@@ -2476 +2477 @@
 600 FORMAT (/' Nesting informations:'/ &
             ' --------------------'/ &
-            ' Nesting mode:                     ',A// &
+            ' Nesting mode:                     ',A/ &
+            ' Nesting-datatransfer mode:        ',A// &
             ' Nest id  parent  number   lower left coordinates   name'/ &
             ' (*=me)     id    of PEs      x (m)     y (m)' )