Ignore:
Timestamp:
Mar 13, 2017 11:11:15 AM (4 years ago)
Author:
hellstea
Message:

Minor changes in nesting

File:
1 edited

Legend:

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

    r2119 r2177  
    162162    USE control_parameters,                                                    &
    163163        ONLY:  constant_diffusion, coupling_char, coupling_mode,               &
    164                do2d_at_begin, do3d_at_begin, humidity, io_blocks, io_group,    &
     164               do2d_at_begin, do3d_at_begin, humidity, initializing_actions,   &
     165               io_blocks, io_group,                                            &
    165166               large_scale_forcing, message_string, nest_domain, neutral,      &
    166167               nudging, passive_scalar, simulated_time, simulated_time_chr,    &
     
    345346!--    Receive and interpolate initial data on children.
    346347!--    Child initialization must be made first if the model is both child and
    347 !--    parent
    348        CALL pmci_child_initialize
    349 !
    350 !--    Send initial condition data from parent to children
    351        CALL pmci_parent_initialize
     348!--    parent if necessary
     349       IF ( TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
     350          CALL pmci_child_initialize
     351!
     352!--       Send initial condition data from parent to children
     353          CALL pmci_parent_initialize
     354       END IF
    352355!
    353356!--    Exchange_horiz is needed after the nest initialization
Note: See TracChangeset for help on using the changeset viewer.