Changeset 1382 for palm/trunk/SOURCE/nudging.f90
- Timestamp:
- Apr 30, 2014 12:15:41 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/nudging.f90
r1381 r1382 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Changed the weighting factor that is used in the summation of nudging 23 ! tendencies for profile data output from weight_pres to weight_substep, 24 ! added Neumann boundary conditions for profile data output of nudging terms at 25 ! nzt+1 23 26 ! 24 27 ! Former revisions: … … 299 302 300 303 USE statistics, & 301 ONLY: hom, sums_ls_l, weight_ pres304 ONLY: hom, sums_ls_l, weight_substep 302 305 303 306 IMPLICIT NONE … … 333 336 DO i = nxl, nxr 334 337 DO j = nys, nyn 338 335 339 DO k = nzb_u_inner(j,i)+1, nzt 336 340 … … 341 345 342 346 sums_ls_l(k,6) = sums_ls_l(k,6) + tmp_tend * & 343 weight_pres(intermediate_timestep_count)347 weight_substep(intermediate_timestep_count) 344 348 ENDDO 349 350 sums_ls_l(nzt+1,6) = sums_ls_l(nzt,6) 351 345 352 ENDDO 346 353 ENDDO … … 350 357 DO i = nxl, nxr 351 358 DO j = nys, nyn 359 352 360 DO k = nzb_u_inner(j,i)+1, nzt 353 361 … … 358 366 359 367 sums_ls_l(k,7) = sums_ls_l(k,7) + tmp_tend * & 360 weight_pres(intermediate_timestep_count)368 weight_substep(intermediate_timestep_count) 361 369 ENDDO 370 371 sums_ls_l(nzt+1,7) = sums_ls_l(nzt,7) 372 362 373 ENDDO 363 374 ENDDO … … 367 378 DO i = nxl, nxr 368 379 DO j = nys, nyn 380 369 381 DO k = nzb_u_inner(j,i)+1, nzt 370 382 … … 375 387 376 388 sums_ls_l(k,4) = sums_ls_l(k,4) + tmp_tend * & 377 weight_pres(intermediate_timestep_count)389 weight_substep(intermediate_timestep_count) 378 390 ENDDO 391 392 sums_ls_l(nzt+1,4) = sums_ls_l(nzt,4) 393 379 394 ENDDO 380 395 ENDDO … … 384 399 DO i = nxl, nxr 385 400 DO j = nys, nyn 401 386 402 DO k = nzb_u_inner(j,i)+1, nzt 387 403 … … 392 408 393 409 sums_ls_l(k,5) = sums_ls_l(k,5) + tmp_tend * & 394 weight_pres(intermediate_timestep_count)410 weight_substep(intermediate_timestep_count) 395 411 ENDDO 412 413 sums_ls_l(nzt+1,5) = sums_ls_l(nzt,5) 414 396 415 ENDDO 397 416 ENDDO … … 425 444 426 445 USE statistics, & 427 ONLY: hom, sums_ls_l, weight_ pres446 ONLY: hom, sums_ls_l, weight_substep 428 447 429 448 IMPLICIT NONE … … 466 485 467 486 sums_ls_l(k,6) = sums_ls_l(k,6) + tmp_tend & 468 * weight_ pres(intermediate_timestep_count)487 * weight_substep(intermediate_timestep_count) 469 488 ENDDO 489 490 sums_ls_l(nzt+1,6) = sums_ls_l(nzt,6) 470 491 471 492 CASE ( 'v' ) … … 479 500 480 501 sums_ls_l(k,7) = sums_ls_l(k,7) + tmp_tend & 481 * weight_ pres(intermediate_timestep_count)502 * weight_substep(intermediate_timestep_count) 482 503 ENDDO 483 504 505 sums_ls_l(nzt+1,7) = sums_ls_l(nzt,7) 484 506 485 507 CASE ( 'pt' ) … … 493 515 494 516 sums_ls_l(k,4) = sums_ls_l(k,4) + tmp_tend & 495 * weight_ pres(intermediate_timestep_count)517 * weight_substep(intermediate_timestep_count) 496 518 ENDDO 519 520 sums_ls_l(nzt+1,4) = sums_ls_l(nzt,4) 497 521 498 522 … … 507 531 508 532 sums_ls_l(k,5) = sums_ls_l(k,5) + tmp_tend & 509 * weight_ pres(intermediate_timestep_count)533 * weight_substep(intermediate_timestep_count) 510 534 ENDDO 535 536 sums_ls_l(nzt+1,5) = sums_ls_l(nzt,5) 511 537 512 538 CASE DEFAULT
Note: See TracChangeset
for help on using the changeset viewer.