Ignore:
Timestamp:
Apr 8, 2016 8:29:13 AM (5 years ago)
Author:
raasch
Message:

nzb_2d replaced by nzb_..._inner, Kessler precipitation stored on surface grid point

File:
1 edited

Legend:

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

    r1818 r1845  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! nzb_2d removed
    2222!
    2323! Former revisions:
     
    180180        ONLY:  flags, nbgp, nx, nxl, nxlg, nxlu, nxl_mg, nxr, nxrg, nxr_mg,    &
    181181               ny, nyn, nyng, nyn_mg, nys, nysv, nys_mg, nysg, nz, nzb,        &
    182                nzb_2d, nzb_diff, nzb_diff_s_inner, nzb_diff_s_outer,           &
    183                nzb_diff_u, nzb_diff_v, nzb_max, nzb_s_inner, nzb_s_outer,      &
    184                nzb_u_inner, nzb_u_outer, nzb_v_inner, nzb_v_outer,             &
    185                nzb_w_inner, nzb_w_outer, nzt, nzt_diff, nzt_mg, rflags_invers, &
     182               nzb_diff, nzb_diff_s_inner, nzb_diff_s_outer, nzb_diff_u,       &
     183               nzb_diff_v, nzb_max, nzb_s_inner, nzb_s_outer, nzb_u_inner,     &
     184               nzb_u_outer, nzb_v_inner, nzb_v_outer, nzb_w_inner,             &
     185               nzb_w_outer, nzt, nzt_diff, nzt_mg, rflags_invers,              &
    186186               rflags_s_inner, wall_flags_0, wall_flags_00, wall_flags_1,      &
    187187               wall_flags_10, wall_flags_2, wall_flags_3,  wall_flags_4,       &
     
    470470              nzb_diff_u(nysg:nyng,nxlg:nxrg),                              &
    471471              nzb_diff_v(nysg:nyng,nxlg:nxrg),                              &
    472               nzb_2d(nysg:nyng,nxlg:nxrg),                                  &
    473472              rflags_s_inner(nzb:nzt+2,nysg:nyng,nxlg:nxrg),                &
    474473              rflags_invers(nysg:nyng,nxlg:nxrg,nzb:nzt+2),                 &
     
    967966
    968967    ENDIF
    969 
    970 !
    971 !-- Preliminary: to be removed after completion of the topography code!
    972 !-- Set the former default k index arrays nzb_2d
    973     nzb_2d      = nzb
    974968
    975969!
Note: See TracChangeset for help on using the changeset viewer.