Changeset 107 for palm/trunk/SOURCE/init_rankine.f90

Timestamp:

Aug 17, 2007 1:54:45 PM (17 years ago)

Author:

raasch

Message:

further bugfix for non-cyclic BCs

File:

• palm/trunk/SOURCE/init_rankine.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_rankine.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Initial profiles are reset to constant profiles
 !
 ! Former revisions:
@@ -48 +48 @@
     kc1 = nzb
     kc2 = nzt+1
+
+!
+!-- Reset initial profiles to constant profiles
+    IF ( INDEX(initializing_actions, 'set_constant_profiles') /= 0 )  THEN
+       DO  i = nxl-1, nxr+1
+          DO  j = nys-1, nyn+1
+             pt(:,j,i) = pt_init
+             u(:,j,i)  = u_init
+             v(:,j,i)  = v_init
+          ENDDO
+       ENDDO
+    ENDIF
 
 !