Ignore:
Timestamp:
Aug 25, 2009 8:06:27 AM (12 years ago)
Author:
raasch
Message:

speed optomizations +bugfix in init_ocean

File:
1 edited

Legend:

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

    r110 r366  
    44! Actual revisions:
    55! -----------------
    6 !
     6! bc_ns replaced by bc_ns_cyc
    77!
    88! Former revisions:
     
    101101!--             velocity components parallel to the outflow boundary in
    102102!--             the direction normal to the outflow boundary.
    103                 IF ( bc_ns /= 'cyclic' )  THEN
     103                IF ( .NOT. bc_ns_cyc )  THEN
    104104                   kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    105105                   kmym_y = MAX( kmym_y, km_damp_y(j) )
     
    134134!--                velocity components parallel to the outflow boundary in
    135135!--                the direction normal to the outflow boundary.
    136                    IF ( bc_ns /= 'cyclic' )  THEN
     136                   IF ( .NOT. bc_ns_cyc )  THEN
    137137                      kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    138138                      kmym_y = MAX( kmym_y, km_damp_y(j) )
     
    266266!--       parallel to the outflow boundary in the direction normal to the
    267267!--       outflow boundary.
    268           IF ( bc_ns /= 'cyclic' )  THEN
     268          IF ( .NOT. bc_ns_cyc )  THEN
    269269             kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    270270             kmym_y = MAX( kmym_y, km_damp_y(j) )
     
    302302!--          velocity components parallel to the outflow boundary in
    303303!--          the direction normal to the outflow boundary.
    304              IF ( bc_ns /= 'cyclic' )  THEN
     304             IF ( .NOT. bc_ns_cyc )  THEN
    305305                kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    306306                kmym_y = MAX( kmym_y, km_damp_y(j) )
Note: See TracChangeset for help on using the changeset viewer.