Ignore:
Timestamp:
Mar 3, 2016 3:12:23 PM (5 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:
1 edited

Legend:

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

    r1780 r1781  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! pmc initialization moved from time_integration to here
    2222!
    2323! Former revisions:
     
    120120
    121121    USE control_parameters,                                                    &
    122         ONLY:  coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
    123                io_blocks, io_group, large_scale_forcing, message_string,       &
    124                nest_domain, nudging, simulated_time, simulated_time_chr,       &
     122        ONLY:  constant_diffusion, coupling_char, coupling_mode,               &
     123               do2d_at_begin, do3d_at_begin, humidity, io_blocks, io_group,    &
     124               large_scale_forcing, message_string, nest_domain, nudging,      &
     125               passive_scalar, simulated_time, simulated_time_chr,             &
    125126               user_interface_current_revision,                                &
    126127               user_interface_required_revision, version, wall_heatflux,       &
     
    135136
    136137    USE indices,                                                               &
    137         ONLY:  ngp_2dh, ngp_2dh_s_inner, nzb_diff_s_inner, nzb_diff_s_outer,   &
     138        ONLY:  nbgp, ngp_2dh, ngp_2dh_s_inner, nzb_diff_s_inner, nzb_diff_s_outer,   &
    138139               nzb_diff_u, nzb_diff_v, nzb_s_inner, nzb_s_outer, nzb_u_inner,  &
    139140               nzb_u_outer, nzb_v_inner, nzb_v_outer, nzb_w_inner,             &
     
    155156
    156157    USE pmc_interface,                                                         &
    157         ONLY:  cpl_id, nested_run, pmci_init, pmci_modelconfiguration
     158        ONLY:  cpl_id, nested_run, pmci_client_initialize, pmci_init,          &
     159               pmci_modelconfiguration, pmci_server_initialize
    158160
    159161    USE statistics,                                                            &
     
    326328    IF ( nested_run )  THEN
    327329       CALL pmci_modelconfiguration
    328     ENDIF
     330!
     331!--    Receive and interpolate initial data on client.
     332!--    Client initialization must be made first if the model is both client and
     333!--    server
     334       CALL pmci_client_initialize
     335!
     336!--    Send initial condition data from server to client
     337       CALL pmci_server_initialize
     338!
     339!--    Exchange_horiz is needed after the nest initialization
     340       IF ( nest_domain )  THEN
     341          CALL exchange_horiz( u, nbgp )
     342          CALL exchange_horiz( v, nbgp )
     343          CALL exchange_horiz( w, nbgp )
     344          CALL exchange_horiz( pt, nbgp )
     345          IF ( .NOT. constant_diffusion )  CALL exchange_horiz( e, nbgp )
     346          IF (humidity  .OR.  passive_scalar)  THEN
     347             CALL exchange_horiz( q, nbgp )
     348          ENDIF
     349       ENDIF
     350
     351    ENDIF
     352
    329353
    330354!
Note: See TracChangeset for help on using the changeset viewer.