Changeset 1195 for palm/trunk/SOURCE/parin.f90
- Timestamp:
- Jul 1, 2013 12:27:57 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r1182 r1195 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: allocate ref_state 23 23 ! 24 24 ! Former revisions: … … 420 420 !-- ATTENTION: in case of changes to the following statement please 421 421 !-- 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), & 425 425 hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions), & 426 426 hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
Note: See TracChangeset
for help on using the changeset viewer.