Ignore:
Timestamp:
Jun 13, 2016 7:12:51 AM (5 years ago)
Author:
hellstea
Message:

last commit documented

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r1834 r1933  
    2525! $Id$
    2626!
     27! 1834 2016-04-07 14:34:20Z raasch
     28! Initial version of purely vertical nesting introduced.
     29!
    2730! 1833 2016-04-07 14:23:03Z raasch
    2831! required user interface version changed
     
    134137        ONLY:  constant_diffusion, coupling_char, coupling_mode,               &
    135138               do2d_at_begin, do3d_at_begin, humidity, io_blocks, io_group,    &
    136                large_scale_forcing, message_string, nest_domain, nudging,      &
    137                passive_scalar, simulated_time, simulated_time_chr,             &
     139               large_scale_forcing, message_string, nest_domain, neutral,      &
     140               nudging, passive_scalar, simulated_time, simulated_time_chr,    &
    138141               user_interface_current_revision,                                &
    139142               user_interface_required_revision, version, wall_heatflux,       &
     
    168171
    169172    USE pmc_interface,                                                         &
    170         ONLY:  cpl_id, nested_run, pmci_client_initialize, pmci_init,          &
    171                pmci_modelconfiguration, pmci_server_initialize
     173        ONLY:  cpl_id, nested_run, pmci_child_initialize, pmci_init,           &
     174               pmci_modelconfiguration, pmci_parent_initialize
    172175
    173176    USE statistics,                                                            &
     
    341344       CALL pmci_modelconfiguration
    342345!
    343 !--    Receive and interpolate initial data on client.
    344 !--    Client initialization must be made first if the model is both client and
    345 !--    server
    346        CALL pmci_client_initialize
    347 !
    348 !--    Send initial condition data from server to client
    349        CALL pmci_server_initialize
     346!--    Receive and interpolate initial data on children.
     347!--    Child initialization must be made first if the model is both child and
     348!--    parent
     349       CALL pmci_child_initialize
     350!
     351!--    Send initial condition data from parent to children
     352       CALL pmci_parent_initialize
    350353!
    351354!--    Exchange_horiz is needed after the nest initialization
     
    354357          CALL exchange_horiz( v, nbgp )
    355358          CALL exchange_horiz( w, nbgp )
    356           CALL exchange_horiz( pt, nbgp )
     359          IF ( .NOT. neutral )  THEN
     360             CALL exchange_horiz( pt, nbgp )
     361          ENDIF
    357362          IF ( .NOT. constant_diffusion )  CALL exchange_horiz( e, nbgp )
    358363          IF (humidity  .OR.  passive_scalar)  THEN
Note: See TracChangeset for help on using the changeset viewer.