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

    r77 r366  
    44! Actual revisions:
    55! -----------------
    6 !
     6! bc_lr/bc_ns replaced by bc_lr_cyc/bc_ns_cyc
    77!
    88! Former revisions:
     
    100100!--             velocity components parallel to the outflow boundary in
    101101!--             the direction normal to the outflow boundary.
    102                 IF ( bc_lr /= 'cyclic' )  THEN
     102                IF ( .NOT. bc_lr_cyc )  THEN
    103103                   kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    104104                   kmxm_x = MAX( kmxm_x, km_damp_x(i) )
    105105                ENDIF
    106                 IF ( bc_ns /= 'cyclic' )  THEN
     106                IF ( .NOT. bc_ns_cyc )  THEN
    107107                   kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    108108                   kmym_y = MAX( kmym_y, km_damp_y(j) )
     
    150150!--                velocity components parallel to the outflow boundary in
    151151!--                the direction normal to the outflow boundary.
    152                    IF ( bc_lr /= 'cyclic' )  THEN
     152                   IF ( .NOT. bc_lr_cyc )  THEN
    153153                      kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    154154                      kmxm_x = MAX( kmxm_x, km_damp_x(i) )
    155155                   ENDIF
    156                    IF ( bc_ns /= 'cyclic' )  THEN
     156                   IF ( .NOT. bc_ns_cyc )  THEN
    157157                      kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    158158                      kmym_y = MAX( kmym_y, km_damp_y(j) )
     
    231231!--       parallel to the outflow boundary in the direction normal to the
    232232!--       outflow boundary.
    233           IF ( bc_lr /= 'cyclic' )  THEN
     233          IF ( .NOT. bc_lr_cyc )  THEN
    234234             kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    235235             kmxm_x = MAX( kmxm_x, km_damp_x(i) )
    236236          ENDIF
    237           IF ( bc_ns /= 'cyclic' )  THEN
     237          IF ( .NOT. bc_ns_cyc )  THEN
    238238             kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    239239             kmym_y = MAX( kmym_y, km_damp_y(j) )
     
    293293!--          velocity components parallel to the outflow boundary in
    294294!--          the direction normal to the outflow boundary.
    295              IF ( bc_lr /= 'cyclic' )  THEN
     295             IF ( .NOT. bc_lr_cyc )  THEN
    296296                kmxp_x = MAX( kmxp_x, km_damp_x(i) )
    297297                kmxm_x = MAX( kmxm_x, km_damp_x(i) )
    298298             ENDIF
    299              IF ( bc_ns /= 'cyclic' )  THEN
     299             IF ( .NOT. bc_ns_cyc )  THEN
    300300                kmyp_y = MAX( kmyp_y, km_damp_y(j) )
    301301                kmym_y = MAX( kmym_y, km_damp_y(j) )
Note: See TracChangeset for help on using the changeset viewer.