Changeset 1316 for palm


Ignore:
Timestamp:
Mar 17, 2014 7:44:59 AM (8 years ago)
Author:
heinze
Message:

bugfix: allocation of w_subs

File:
1 edited

Legend:

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

    r1310 r1316  
    2323! Current revisions:
    2424! ------------------
    25 !
     25! Bugfix: allocation of w_subs
    2626!
    2727! Former revisions:
     
    547547!
    548548!-- 1D-array for large scale subsidence velocity
    549     IF ( large_scale_subsidence )  THEN
    550        ALLOCATE ( w_subs(nzb:nzt+1) )
    551        w_subs = 0.0
    552     ENDIF
     549    ALLOCATE ( w_subs(nzb:nzt+1) )
     550    w_subs = 0.0
     551
    553552
    554553!
Note: See TracChangeset for help on using the changeset viewer.