Ignore:
Timestamp:
Apr 22, 2014 3:03:56 PM (7 years ago)
Author:
boeske
Message:

large scale forcing enabled

File:
1 edited

Legend:

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

    r1362 r1365  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Usage of large scale forcing enabled:
     23! increase pr_palm from 90 to 100 to allow for more standard profiles
     24! + ngp_sums_ls, pt_lsa, pt_subs, q_lsa, q_subs, tmp_tnudge, sums_ls_l,
     25! use_subsidence_tendencies
    2326!
    2427! Former revisions:
     
    273276          nc_1d, nr_1d, ptdf_x, ptdf_y, p_surf, pt_surf, pt_1d, pt_init,       &
    274277          qsws_surf, q_1d, q_init, q_surf, qc_1d, qr_1d, rdf, rdf_sc,          &
    275           ref_state, sa_init, shf_surf, timenudge, time_surf, time_vert, ug,   &
    276           u_init, u_nzb_p1_for_vfc, vg, v_init, v_nzb_p1_for_vfc, w_subs, zu, zw
     278          ref_state, sa_init, shf_surf, timenudge, time_surf, time_vert,       &
     279          tmp_tnudge, ug, u_init, u_nzb_p1_for_vfc, vg, v_init,                &
     280          v_nzb_p1_for_vfc, w_subs, zu, zw
    277281
    278282    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::                                   &
     
    281285          flux_s_e, flux_s_nr, flux_s_pt, flux_s_q, flux_s_qr, flux_s_sa,      &
    282286          flux_s_u, flux_s_v, flux_s_w, f1_mg, f2_mg, f3_mg,                   &
    283           mean_inflow_profiles, nrs, nrsws, nrswst, ptnudge, pt_slope_ref,     &
    284           qnudge, qs, qsws, qswst, qswst_remote, qrs, qrsws, qrswst, rif,      &
    285           saswsb, saswst, shf, tnudge, total_2d_a, total_2d_o, ts, tswst,      &
    286           ug_vert, unudge, us, usws, uswst, vnudge, vg_vert, vsws, vswst,      &
    287           wnudge, wsubs_vert, z0, z0h
     287          mean_inflow_profiles, nrs, nrsws, nrswst, ptnudge, pt_lsa,           &
     288          pt_slope_ref, pt_subs, qnudge, qs, qsws, qswst, qswst_remote, qrs,   &
     289          qrsws, qrswst, q_lsa, q_subs, rif, saswsb, saswst, shf, tnudge,      &
     290          total_2d_a, total_2d_o, ts, tswst, ug_vert, unudge, us, usws, uswst, &
     291          vnudge, vg_vert, vsws, vswst, wnudge, wsubs_vert, z0, z0h
    288292
    289293    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::                                 &
     
    638642                use_prescribed_profile_data = .FALSE., &
    639643                use_single_reference_value = .FALSE., &
     644                use_subsidence_tendencies = .FALSE., &
    640645                use_surface_fluxes = .FALSE., use_top_fluxes = .FALSE., &
    641646                use_ug_for_galilei_tr = .TRUE., use_upstream_for_tke = .FALSE.,&
     
    921926    USE kinds
    922927
    923     INTEGER(iwp) ::  i_left, i_right, j_north, j_south, nbgp = 3, ngp_sums, nnx,    &
    924                      nx = 0, nx_a, nx_o, nxl, nxlg, nxlu, nxr, nxrg, nx_on_file,    &
    925                      nny, ny = 0, ny_a, ny_o, nyn, nyng, nys, nysg, nysv,           &
    926                      ny_on_file, nnz, nz = 0, nzb, nzb_diff, nzb_max, nzt, nzt_diff
     928    INTEGER(iwp) ::  i_left, i_right, j_north, j_south, nbgp = 3, ngp_sums,         &
     929                     ngp_sums_ls, nnx, nx = 0, nx_a, nx_o, nxl, nxlg, nxlu, nxr,    &
     930                     nxrg, nx_on_file, nny, ny = 0, ny_a, ny_o, nyn, nyng, nys,     &
     931                     nysg, nysv, ny_on_file, nnz, nz = 0, nzb, nzb_diff, nzb_max,   &
     932                     nzt, nzt_diff
    927933
    928934
     
    13891395
    13901396    CHARACTER (LEN=40) ::  region(0:9)
    1391     INTEGER(iwp) ::  pr_palm = 90, statistic_regions = 0
     1397    INTEGER(iwp) ::  pr_palm = 100, statistic_regions = 0
    13921398    INTEGER(iwp) ::  u_max_ijk(3) = -1, v_max_ijk(3) = -1, w_max_ijk(3) = -1
    13931399    LOGICAL ::  flow_statistics_called = .FALSE.
     
    14031409                                                  sums_wssas_ws_l,                &
    14041410                                                  sums_wsqs_ws_l,                 &
    1405                                                   sums_wsqrs_ws_l
     1411                                                  sums_wsqrs_ws_l,                &
     1412                                                  sums_ls_l
    14061413                                             
    14071414    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  hom_sum, rmask, spectrum_x, &
Note: See TracChangeset for help on using the changeset viewer.