Changeset 75 for palm/trunk/SOURCE/prandtl_fluxes.f90

Timestamp:

Mar 22, 2007 9:54:05 AM (17 years ago)

Author:

raasch

Message:

preliminary update for changes concerning non-cyclic boundary conditions

File:

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

palm/trunk/SOURCE/prandtl_fluxes.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! moisture renamed humidity
 !
 ! Former revisions:
@@ -97 +97 @@
 !
 !-- Compute z_p/L (corresponds to the Richardson-flux number)
-    IF ( .NOT. moisture ) THEN
+    IF ( .NOT. humidity )  THEN
        !$OMP PARALLEL DO PRIVATE( k, z_p )
        DO  i = nxl-1, nxr+1
@@ -274 +274 @@
 !
 !-- If required compute q*
-    IF ( moisture  .OR.  passive_scalar )  THEN
+    IF ( humidity  .OR.  passive_scalar )  THEN
        IF ( constant_waterflux )  THEN
 !
@@ -332 +332 @@
     CALL exchange_horiz_2d( usws )
     CALL exchange_horiz_2d( vsws )
-    IF ( moisture  .OR.  passive_scalar )  CALL exchange_horiz_2d( qsws )
+    IF ( humidity  .OR.  passive_scalar )  CALL exchange_horiz_2d( qsws )
 
 !
@@ -347 +347 @@
 !
 !-- Compute the vertical water/scalar flux
-    IF ( .NOT. constant_heatflux .AND. ( moisture .OR. passive_scalar ) ) THEN
+    IF ( .NOT. constant_heatflux .AND. ( humidity .OR. passive_scalar ) ) THEN
        !$OMP PARALLEL DO
        DO  i = nxl-1, nxr+1