Changeset 774
- Timestamp:
- Oct 27, 2011 1:34:16 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r773 r774 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bugfix for prescribed u,v-profiles 6 7 ! 7 8 ! Former revisions: … … 939 940 ENDIF 940 941 941 IF ( kk < 100 ) THEN942 IF ( kk < 100 .AND. uv_heights(kk+1) /= 9999999.9 ) THEN 942 943 u_init(k) = u_profile(kk) + ( zu(k) - uv_heights(kk) ) / & 943 944 ( uv_heights(kk+1) - uv_heights(kk) ) * &
Note: See TracChangeset
for help on using the changeset viewer.