Changeset 1781 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Mar 3, 2016 3:12:23 PM (8 years ago)

Author:

raasch

Message:

some pmc calls completely removed, some moved from time_integration to main program, t_..m arrays removed from pmc

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (3 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! some pmc calls removed at the beginning (before timeloop),
+! pmc initialization moved to the main program
 !
 ! Former revisions:
@@ -245 +246 @@
         ONLY:  client_to_server, nested_run, nesting_mode,                     &
                pmci_ensure_nest_mass_conservation, pmci_client_datatrans,      &
-               pmci_client_initialize, pmci_client_synchronize,                &
-               pmci_server_datatrans, pmci_server_initialize,                  &
+               pmci_client_synchronize, pmci_server_datatrans,                 &
                pmci_server_synchronize, pmci_update_new, server_to_client
 
@@ -309 +309 @@
           time_coupling = time_since_reference_point
        ENDIF
-    ENDIF
-
-    IF ( nested_run )  THEN
-!
-!--    TO_DO: try to give more meaningful comments here
-!--    Domain nesting: From server to client commmunication
-!--    ( direction=SERVER_TO_CLIENT )
-!--    Nest initial conditions
-!
-!--    Send initial condition data from server to client
-       CALL pmci_server_initialize
-!
-!--    Receive and interpolate initial data on client
-       CALL pmci_client_initialize
-!
-!--    TO_DO, maybe removed
-!--    Obs. Nesting may be unnecessary at this point.
-!
-!--    Nest boundary conditions
-       CALL pmci_server_datatrans( server_to_client )
-       CALL pmci_client_datatrans( server_to_client )
-
-       IF ( nesting_mode == 'two-way' )  THEN
-          CALL pmci_server_datatrans( client_to_server )
-          CALL pmci_client_datatrans( client_to_server )
-!
-!--       Exchange_horiz is needed for all server-domains after the anterpolation
-          CALL exchange_horiz( u, nbgp )
-          CALL exchange_horiz( v, nbgp )
-          CALL exchange_horiz( w, nbgp )
-          CALL exchange_horiz( pt, nbgp )
-          IF ( .NOT. constant_diffusion )  CALL exchange_horiz( e, nbgp )
-          intermediate_timestep_count = 0
-          CALL pres
-       ENDIF
-!
-!--    Correct the w top-BC in nest domains to ensure mass conservation.
-!--    Copy the interpolated/anterpolated boundary values to the _p
-!--    arrays, too, to make sure the interpolated/anterpolated boundary
-!--    values are carried over from one RK inner step to another.
-!--    These actions must not be done for the root domain.
-       IF ( nest_domain )  THEN
-          CALL pmci_ensure_nest_mass_conservation
-          CALL pmci_update_new
-       ENDIF
-
     ENDIF