Changeset 1762 for palm/trunk/SOURCE/palm.f90

Timestamp:

Feb 25, 2016 12:31:13 PM (8 years ago)

Author:

hellstea

Message:

Introduction of nested domain system

File:

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

palm/trunk/SOURCE/palm.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Introduction of nested domain feature
 !
 ! Former revisions:
@@ -113 +113 @@
         ONLY:  coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
                io_blocks, io_group, large_scale_forcing, message_string,       &
-               nudging, simulated_time, simulated_time_chr,                    &
+               nest_domain, nudging, simulated_time, simulated_time_chr,       &
                user_interface_current_revision,                                &
                user_interface_required_revision, version, wall_heatflux,       &
@@ -144 +144 @@
 
     USE pegrid
+
+#if defined( PMC_ACTIVE )
+    USE pmc_interface,                                                         &
+        ONLY:  cpl_id, pmci_init, pmci_modelconfiguration
+#endif
 
     USE statistics,                                                            &
@@ -176 +181 @@
 !-- it will be defined in init_pegrid but is used before in cpu_log.
     CALL MPI_INIT( ierr )
+
+#if defined( PMC_ACTIVE )
+!
+!-- Initialize the coupling for nested-domain runs
+    CALL pmci_init( comm_palm )
+    comm2d = comm_palm
+
+    IF ( cpl_id >= 2 )  THEN
+       nest_domain = .TRUE.
+       WRITE( coupling_char, '(A1,I1.1)') '_', cpl_id
+    ENDIF
+
+    CALL MPI_COMM_SIZE( comm_palm, numprocs, ierr )
+    CALL MPI_COMM_RANK( comm_palm, myid, ierr )
+#else
     CALL MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )
     CALL MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
     comm_palm = MPI_COMM_WORLD
     comm2d    = MPI_COMM_WORLD
-
-!
-!-- Initialize PE topology in case of coupled runs
+!
+!-- Initialize PE topology in case of coupled atmosphere-ocean runs (comm_palm
+!-- will be splitted in init_coupling)
     CALL init_coupling
+#endif
 #endif
 
@@ -291 +312 @@
 !-- Initialize all necessary variables
     CALL init_3d_model
+
+#if defined( PMC_ACTIVE )
+!
+!-- Coupling protocol setup for nested-domain runs
+    CALL pmci_modelconfiguration
+#endif
 
 !