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

bugfix in allocation of ref_state

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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) )
Note: See TracChangeset for help on using the changeset viewer.