Changeset 774 for palm/trunk

Timestamp:

Oct 27, 2011 1:34:16 PM (13 years ago)

Author:

letzel

Message:

bugfix for prescribed u,v-profiles

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! bugfix for prescribed u,v-profiles
 !
 ! Former revisions:
@@ -939 +940 @@
              ENDIF
 
-             IF ( kk < 100 )  THEN
+             IF ( kk < 100 .AND. uv_heights(kk+1) /= 9999999.9 )  THEN
                 u_init(k) = u_profile(kk) + ( zu(k) - uv_heights(kk) ) /       &
                                        ( uv_heights(kk+1) - uv_heights(kk) ) * &