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

Timestamp:

Jun 13, 2016 7:12:51 AM (8 years ago)

Author:

hellstea

Message:

last commit documented

File:

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

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! $Id$
 !
+! 1834 2016-04-07 14:34:20Z raasch
+! Initial version of purely vertical nesting introduced. 
+! 
 ! 1833 2016-04-07 14:23:03Z raasch
 ! required user interface version changed
@@ -134 +137 @@
         ONLY:  constant_diffusion, coupling_char, coupling_mode,               &
                do2d_at_begin, do3d_at_begin, humidity, io_blocks, io_group,    &
-               large_scale_forcing, message_string, nest_domain, nudging,      &
-               passive_scalar, simulated_time, simulated_time_chr,             &
+               large_scale_forcing, message_string, nest_domain, neutral,      &
+               nudging, passive_scalar, simulated_time, simulated_time_chr,    &
                user_interface_current_revision,                                &
                user_interface_required_revision, version, wall_heatflux,       &
@@ -168 +171 @@
 
     USE pmc_interface,                                                         &
-        ONLY:  cpl_id, nested_run, pmci_client_initialize, pmci_init,          &
-               pmci_modelconfiguration, pmci_server_initialize
+        ONLY:  cpl_id, nested_run, pmci_child_initialize, pmci_init,           &
+               pmci_modelconfiguration, pmci_parent_initialize
 
     USE statistics,                                                            &
@@ -341 +344 @@
        CALL pmci_modelconfiguration
 !
-!--    Receive and interpolate initial data on client.
-!--    Client initialization must be made first if the model is both client and
-!--    server
-       CALL pmci_client_initialize
-!
-!--    Send initial condition data from server to client
-       CALL pmci_server_initialize
+!--    Receive and interpolate initial data on children.
+!--    Child initialization must be made first if the model is both child and
+!--    parent
+       CALL pmci_child_initialize
+!
+!--    Send initial condition data from parent to children
+       CALL pmci_parent_initialize
 !
 !--    Exchange_horiz is needed after the nest initialization
@@ -354 +357 @@
           CALL exchange_horiz( v, nbgp )
           CALL exchange_horiz( w, nbgp )
-          CALL exchange_horiz( pt, nbgp )
+          IF ( .NOT. neutral )  THEN
+             CALL exchange_horiz( pt, nbgp )
+          ENDIF
           IF ( .NOT. constant_diffusion )  CALL exchange_horiz( e, nbgp )
           IF (humidity  .OR.  passive_scalar)  THEN