Ignore:
Timestamp:
Oct 23, 2018 1:29:11 PM (3 years ago)
Author:
suehring
Message:

Consider time-dependent geostrophic wind components in offline nesting

File:
1 edited

Legend:

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

    r3376 r3404  
    2525! -----------------
    2626! $Id$
     27! Consider time-dependent geostrophic wind components in offline nesting
     28!
     29! 3376 2018-10-19 10:15:32Z suehring
    2730! Additional check for consistent building initialization implemented
    2831!
     
    30883091       USE control_parameters,                                                 &
    30893092           ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,              &
    3090                   bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, humidity,              &
    3091                   neutral, nesting_offline, time_since_reference_point
     3093                  bc_dirichlet_s, humidity, neutral, nesting_offline,          &
     3094                  time_since_reference_point
    30923095
    30933096       USE indices,                                                            &
     
    31703173       nest_offl%tind_p = nest_offl%tind + 1       
    31713174!
    3172 !--    Read geostrophic wind components. In case of forcing, this is only
    3173 !--    required if cyclic boundary conditions are applied.
    3174        IF ( bc_lr_cyc  .AND.  bc_ns_cyc )  THEN
    3175           DO  t = nest_offl%tind, nest_offl%tind_p
    3176 !              CALL get_variable_pr( id_dynamic, 'tend_ug', t+1,           &
    3177 !                                    nest_offl%ug(t-nest_offl%tind,:) )
    3178 !              CALL get_variable_pr( id_dynamic, 'tend_vg', t+1,           &
    3179 !                                    nest_offl%ug(t-nest_offl%tind,:) )
    3180              CALL get_variable_pr( id_dynamic, 'ls_forcing_ug', t+1,           &
    3181                                    nest_offl%ug(t-nest_offl%tind,:) )
    3182              CALL get_variable_pr( id_dynamic, 'ls_forcing_vg', t+1,           &
    3183                                    nest_offl%ug(t-nest_offl%tind,:) )
    3184           ENDDO
    3185        ENDIF
     3175!--    Read geostrophic wind components
     3176       DO  t = nest_offl%tind, nest_offl%tind_p
     3177          CALL get_variable_pr( id_dynamic, 'ls_forcing_ug', t+1,              &
     3178                                nest_offl%ug(t-nest_offl%tind,nzb+1:nzt) )
     3179          CALL get_variable_pr( id_dynamic, 'ls_forcing_vg', t+1,              &
     3180                                nest_offl%vg(t-nest_offl%tind,nzb+1:nzt) )
     3181       ENDDO
    31863182!
    31873183!--    Read data at lateral and top boundaries. Please note, at left and
Note: See TracChangeset for help on using the changeset viewer.