Changeset 787 for palm/trunk


Ignore:
Timestamp:
Nov 28, 2011 12:49:05 PM (12 years ago)
Author:
heinze
Message:

bugfix: call init_advec in every case - not only for inital runs

File:
1 edited

Legend:

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

    r786 r787  
    77! Current revisions:
    88! ------------------
    9 !
     9! bugfix: call init_advec in every case - not only for inital runs
    1010!
    1111! Former revisions:
     
    876876          IF ( precipitation )  precipitation_amount = 0.0
    877877       ENDIF
    878        
    879 !
    880 !--    Initialize quantities for special advections schemes
    881        CALL init_advec
    882 
    883878!
    884879!--    Impose vortex with vertical axis on the initial velocity profile
     
    12901285    ENDIF
    12911286
     1287!
     1288!-- Initialize quantities for special advections schemes
     1289    CALL init_advec
    12921290
    12931291!
Note: See TracChangeset for help on using the changeset viewer.