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_v.f90

    r110 r366  
    44! Actual revisions:
    55! -----------------
    6 !
     6! bc_lr replaced by bc_lr_cyc
    77!
    88! Former revisions:
     
    9999!--             velocity components parallel to the outflow boundary in
    100100!--             the direction normal to the outflow boundary.
    101                 IF ( bc_lr /= 'cyclic' )  THEN
     101                IF ( .NOT. bc_lr_cyc )  THEN
    102102                   kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    103103                   kmxm_x = MAX( kmxm_x, km_damp_x(i) )
     
    132132!--                velocity components parallel to the outflow boundary in
    133133!--                the direction normal to the outflow boundary.
    134                    IF ( bc_lr /= 'cyclic' )  THEN
     134                   IF ( .NOT. bc_lr_cyc )  THEN
    135135                      kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    136136                      kmxm_x = MAX( kmxm_x, km_damp_x(i) )
     
    263263!--       parallel to the outflow boundary in the direction normal to the
    264264!--       outflow boundary.
    265           IF ( bc_lr /= 'cyclic' )  THEN
     265          IF ( .NOT. bc_lr_cyc )  THEN
    266266             kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    267267             kmxm_x = MAX( kmxm_x, km_damp_x(i) )
     
    301301!--          velocity components parallel to the outflow boundary in
    302302!--          the direction normal to the outflow boundary.
    303              IF ( bc_lr /= 'cyclic' )  THEN
     303             IF ( .NOT. bc_lr_cyc )  THEN
    304304                kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    305305                kmxm_x = MAX( kmxm_x, km_damp_x(i) )
Note: See TracChangeset for help on using the changeset viewer.