Changeset 1195 for palm/trunk


Ignore:
Timestamp:
Jul 1, 2013 12:27:57 PM (11 years ago)
Author:
heinze
Message:

bugfix in allocation of ref_state

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r1182 r1195  
    2323! Current revisions:
    2424! ------------------
    25 !
     25! Bugfix: move allocation of ref_state to parin.f90 and read_var_list.f0
    2626!
    2727! Former revisions:
     
    282282              sums_divnew_l(0:statistic_regions),                           &
    283283              sums_divold_l(0:statistic_regions) )
    284     ALLOCATE( dp_smooth_factor(nzb:nzt), rdf(nzb+1:nzt), rdf_sc(nzb+1:nzt), &
    285               ref_state(nzb:nzt+1) )
     284    ALLOCATE( dp_smooth_factor(nzb:nzt), rdf(nzb+1:nzt), rdf_sc(nzb+1:nzt) )
    286285    ALLOCATE( ngp_2dh_outer(nzb:nzt+1,0:statistic_regions),                 &
    287286              ngp_2dh_outer_l(nzb:nzt+1,0:statistic_regions),               &
  • palm/trunk/SOURCE/parin.f90

    r1182 r1195  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: allocate ref_state
    2323!
    2424! Former revisions:
     
    420420!--          ATTENTION: in case of changes to the following statement please
    421421!--                  also check the allocate statement in routine read_var_list
    422              ALLOCATE( lad(0:nz+1),pt_init(0:nz+1), q_init(0:nz+1),           &
    423                        sa_init(0:nz+1), ug(0:nz+1), u_init(0:nz+1),           &
    424                        v_init(0:nz+1), vg(0:nz+1),                            &
     422             ALLOCATE( lad(0:nz+1), pt_init(0:nz+1), q_init(0:nz+1),          &
     423                       ref_state(0:nz+1), sa_init(0:nz+1), ug(0:nz+1),        &
     424                       u_init(0:nz+1), v_init(0:nz+1), vg(0:nz+1),            &
    425425                       hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions), &
    426426                       hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
  • palm/trunk/SOURCE/read_var_list.f90

    r1182 r1195  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Bugfix: allocate ref_state
    2323!
    2424! Former revisions:
     
    257257       ALLOCATE( lad(0:nz+1), ug(0:nz+1), u_init(0:nz+1), vg(0:nz+1),    &
    258258                 v_init(0:nz+1), pt_init(0:nz+1), q_init(0:nz+1),        &
    259                  sa_init(0:nz+1),                                        &
     259                 ref_state(0:nz+1), sa_init(0:nz+1),                     &
    260260                 hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions),  &
    261261                 hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
Note: See TracChangeset for help on using the changeset viewer.