Changeset 366 for palm/trunk/SOURCE/diffusion_v.f90

Timestamp:

Aug 25, 2009 8:06:27 AM (15 years ago)

Author:

raasch

Message:

speed optomizations +bugfix in init_ocean

File:

• palm/trunk/SOURCE/diffusion_v.f90 (modified) (5 diffs)

palm/trunk/SOURCE/diffusion_v.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! bc_lr replaced by bc_lr_cyc
 !
 ! Former revisions:
@@ -99 +99 @@
 !--             velocity components parallel to the outflow boundary in
 !--             the direction normal to the outflow boundary.
-                IF ( bc_lr /= 'cyclic' )  THEN
+                IF ( .NOT. bc_lr_cyc )  THEN
                    kmxp_x = MAX( kmxp_x, km_damp_x(i) )
                    kmxm_x = MAX( kmxm_x, km_damp_x(i) )
@@ -132 +132 @@
 !--                velocity components parallel to the outflow boundary in
 !--                the direction normal to the outflow boundary.
-                   IF ( bc_lr /= 'cyclic' )  THEN
+                   IF ( .NOT. bc_lr_cyc )  THEN
                       kmxp_x = MAX( kmxp_x, km_damp_x(i) )
                       kmxm_x = MAX( kmxm_x, km_damp_x(i) )
@@ -263 +263 @@
 !--       parallel to the outflow boundary in the direction normal to the
 !--       outflow boundary.
-          IF ( bc_lr /= 'cyclic' )  THEN
+          IF ( .NOT. bc_lr_cyc )  THEN
              kmxp_x = MAX( kmxp_x, km_damp_x(i) )
              kmxm_x = MAX( kmxm_x, km_damp_x(i) )
@@ -301 +301 @@
 !--          velocity components parallel to the outflow boundary in
 !--          the direction normal to the outflow boundary.
-             IF ( bc_lr /= 'cyclic' )  THEN
+             IF ( .NOT. bc_lr_cyc )  THEN
                 kmxp_x = MAX( kmxp_x, km_damp_x(i) )
                 kmxm_x = MAX( kmxm_x, km_damp_x(i) )