Ignore:
Timestamp:
Aug 17, 2011 2:13:26 PM (13 years ago)
Author:
suehring
Message:

Bugfix in ws-scheme concerning OpenMP paralellization.

File:
1 edited

Legend:

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

    r723 r736  
    55! Current revisions:
    66! -----------------
    7 !
     7! Dimension of fluxes needed for WS-scheme increased.
    88!
    99! Former revisions:
     
    246246          km_damp_x, km_damp_y, lad, l_grid, pt_init, q_init, rdf, sa_init,    &
    247247          ug, u_init, u_nzb_p1_for_vfc, vg, v_init, v_nzb_p1_for_vfc, w_subs,  &
    248           zu, zw, flux_s_u, flux_s_v, flux_s_w, diss_s_u, diss_s_v, diss_s_w,  &
    249           flux_s_pt, diss_s_pt, flux_s_e, diss_s_e, flux_s_q, diss_s_q,        &
    250           flux_s_sa, diss_s_sa
     248          zu, zw
    251249
    252250    REAL, DIMENSION(:,:), ALLOCATABLE ::                                       &
    253251          c_u, c_v, c_w, dzu_mg, dzw_mg, f1_mg, f2_mg, f3_mg,                  &
    254252          mean_inflow_profiles, pt_slope_ref, qs, qswst_remote, ts, us, z0,    &
    255           flux_l_u, flux_l_v, flux_l_w, diss_l_u, diss_l_v, diss_l_w,          &
    256           flux_l_pt, diss_l_pt, flux_l_e, diss_l_e, flux_l_q, diss_l_q,        &
    257           flux_l_sa, diss_l_sa, total_2d_o, total_2d_a
     253          flux_s_pt, diss_s_pt, flux_s_e, diss_s_e, flux_s_q, diss_s_q,        &
     254          flux_s_sa, diss_s_sa, flux_s_u, flux_s_v, flux_s_w, diss_s_u,        &
     255          diss_s_v, diss_s_w, total_2d_o, total_2d_a
    258256
    259257    REAL, DIMENSION(:,:), ALLOCATABLE, TARGET ::                               &
     
    270268          canopy_heat_flux, cdc, d, diss, lad_s, lad_u, lad_v, lad_w, lai,     &
    271269          l_wall, p_loc, sec, sls, tend, u_m_l, u_m_n, u_m_r, u_m_s, v_m_l,    &
    272           v_m_n, v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s
     270          v_m_n, v_m_r, v_m_s, w_m_l, w_m_n, w_m_r, w_m_s, flux_l_pt,          &
     271          diss_l_pt, flux_l_e, diss_l_e, flux_l_q, diss_l_q, flux_l_sa,        &
     272          diss_l_sa, flux_l_u, flux_l_v, flux_l_w, diss_l_u, diss_l_v, diss_l_w
    273273
    274274    REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET ::                             &
Note: See TracChangeset for help on using the changeset viewer.