Changeset 94 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- Jun 1, 2007 3:25:22 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r77 r94 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! new argument zw in calls of diffusion_e 7 7 ! 8 8 ! Former revisions: … … 557 557 IF ( .NOT. humidity ) THEN 558 558 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, & 559 l_grid, pt, rif, tend, zu )559 l_grid, pt, rif, tend, zu, zw ) 560 560 ELSE 561 561 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, & 562 l_grid, vpt, rif, tend, zu )562 l_grid, vpt, rif, tend, zu, zw ) 563 563 ENDIF 564 564 ELSE … … 582 582 IF ( .NOT. humidity ) THEN 583 583 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, & 584 km_m, l_grid, pt_m, rif_m, tend, zu ) 584 km_m, l_grid, pt_m, rif_m, tend, zu, & 585 zw ) 585 586 ELSE 586 587 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, & 587 km_m, l_grid, vpt_m, rif_m, tend, zu ) 588 km_m, l_grid, vpt_m, rif_m, tend, zu, & 589 zw ) 588 590 ENDIF 589 591 ELSE 590 592 IF ( .NOT. humidity ) THEN 591 593 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, & 592 l_grid, pt, rif, tend, zu )594 l_grid, pt, rif, tend, zu, zw ) 593 595 ELSE 594 596 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, & 595 l_grid, vpt, rif, tend, zu )597 l_grid, vpt, rif, tend, zu, zw ) 596 598 ENDIF 597 599 ENDIF … … 961 963 IF ( .NOT. humidity ) THEN 962 964 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, & 963 km_m, l_grid, pt_m, rif_m, tend, zu ) 965 km_m, l_grid, pt_m, rif_m, tend, zu, & 966 zw ) 964 967 ELSE 965 968 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, & 966 km_m, l_grid, vpt_m, rif_m, tend, zu ) 969 km_m, l_grid, vpt_m, rif_m, tend, zu, & 970 zw ) 967 971 ENDIF 968 972 ELSE 969 973 IF ( .NOT. humidity ) THEN 970 974 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, & 971 l_grid, pt, rif, tend, zu )975 l_grid, pt, rif, tend, zu, zw ) 972 976 ELSE 973 977 CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, & 974 l_grid, vpt, rif, tend, zu )978 l_grid, vpt, rif, tend, zu, zw ) 975 979 ENDIF 976 980 ENDIF … … 1500 1504 IF ( .NOT. humidity ) THEN 1501 1505 CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, pt, & 1502 rif, tend, zu )1506 rif, tend, zu, zw ) 1503 1507 ELSE 1504 1508 CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, vpt, & 1505 rif, tend, zu )1509 rif, tend, zu, zw ) 1506 1510 ENDIF 1507 1511 ELSE … … 1523 1527 IF ( .NOT. humidity ) THEN 1524 1528 CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e_m, km_m, l_grid, & 1525 pt_m, rif_m, tend, zu )1529 pt_m, rif_m, tend, zu, zw ) 1526 1530 ELSE 1527 1531 CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e_m, km_m, l_grid, & 1528 vpt_m, rif_m, tend, zu )1532 vpt_m, rif_m, tend, zu, zw ) 1529 1533 ENDIF 1530 1534 ELSE 1531 1535 IF ( .NOT. humidity ) THEN 1532 1536 CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, pt, & 1533 rif, tend, zu )1537 rif, tend, zu, zw ) 1534 1538 ELSE 1535 1539 CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, vpt, & 1536 rif, tend, zu )1540 rif, tend, zu, zw ) 1537 1541 ENDIF 1538 1542 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.