Ignore:
Timestamp:
Aug 17, 2007 1:54:45 PM (14 years ago)
Author:
raasch
Message:

further bugfix for non-cyclic BCs

File:
1 edited

Legend:

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

    r77 r107  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Initial profiles are reset to constant profiles
    77!
    88! Former revisions:
     
    4848    kc1 = nzb
    4949    kc2 = nzt+1
     50
     51!
     52!-- Reset initial profiles to constant profiles
     53    IF ( INDEX(initializing_actions, 'set_constant_profiles') /= 0 )  THEN
     54       DO  i = nxl-1, nxr+1
     55          DO  j = nys-1, nyn+1
     56             pt(:,j,i) = pt_init
     57             u(:,j,i)  = u_init
     58             v(:,j,i)  = v_init
     59          ENDDO
     60       ENDDO
     61    ENDIF
    5062
    5163!
Note: See TracChangeset for help on using the changeset viewer.