- Timestamp:
- Jan 11, 2011 12:04:00 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/subsidence.f90
r668 r671 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! bugfix: access to ddzu(nzt+2) which is not defined 6 7 ! 7 8 ! Former revisions: … … 167 168 IF ( w_subs(k) >= 0.0 ) THEN ! large-scale ascent 168 169 var_mod(k) = var_init(k) - dt_3d * w_subs(k) * & 169 ( var_init(k) - var_init(k-1) ) * ddzu(k +1)170 ( var_init(k) - var_init(k-1) ) * ddzu(k) 170 171 ENDIF 171 172 ENDDO … … 241 242 IF ( w_subs(k) >= 0.0 ) THEN ! large-scale ascent 242 243 var_mod(k) = var_init(k) - dt_3d * w_subs(k) * & 243 ( var_init(k) - var_init(k-1) ) * ddzu(k +1)244 ( var_init(k) - var_init(k-1) ) * ddzu(k) 244 245 ENDIF 245 246 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.