Changeset 954 for codes/icosagcm/trunk/src/transport/advect.F90
- Timestamp:
- 07/15/19 12:29:31 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/transport/advect.F90
r953 r954 49 49 !======================================================================================= 50 50 51 SUBROUTINE compute_gradq3d(qi,sqrt_leng,gradq3d,xyz_i, 51 SUBROUTINE compute_gradq3d(qi,sqrt_leng,gradq3d,xyz_i,xyz_v) 52 52 USE trace 53 53 USE omp_para … … 348 348 349 349 ! Backward trajectories, for use with Miura approach 350 SUBROUTINE compute_backward_traj(normal,tangent,ue,tau, cc)351 USE geometry, ONLY : xyz_e, de, wee, le350 SUBROUTINE compute_backward_traj(normal,tangent,ue,tau, cc, & 351 xyz_e, de, wee, le ) ! metrics terms 352 352 USE trace 353 353 USE omp_para … … 358 358 REAL(rstd),INTENT(OUT) :: cc(3*iim*jjm,llm,3) ! start of backward trajectory 359 359 REAL(rstd),INTENT(IN) :: tau 360 ! metrics terms 361 REAL(rstd),INTENT(IN) :: xyz_e(iim*3*jjm,3) 362 REAL(rstd),INTENT(IN) :: de(iim*3*jjm) 363 REAL(rstd),INTENT(IN) :: wee(iim*3*jjm,5,2) 364 REAL(rstd),INTENT(IN) :: le(iim*3*jjm) 360 365 361 366 REAL(rstd) :: v_e(3), up_e … … 427 432 ! Horizontal transport (S. Dubey, T. Dubos) 428 433 ! Slope-limited van Leer approach with hexagons 429 SUBROUTINE compute_advect_horiz(update_mass,diagflux_on, hfluxt,cc,gradq3d, mass, qi, qfluxt) 434 SUBROUTINE compute_advect_horiz(update_mass,diagflux_on, hfluxt,cc,gradq3d, mass, qi, qfluxt, & 435 Ai, xyz_i) ! metrics terms 430 436 USE trace 431 437 USE omp_para 432 438 USE abort_mod 433 USE geometry, only : Ai, xyz_i434 439 IMPLICIT NONE 435 440 LOGICAL, INTENT(IN) :: update_mass, diagflux_on … … 441 446 REAL(rstd), INTENT(INOUT) :: qfluxt(3*iim*jjm,MERGE(llm,1,diagflux_on)) ! time-integrated tracer flux 442 447 ! metrics terms 448 REAL(rstd), INTENT(IN) :: Ai(iim*jjm) 449 REAL(rstd), INTENT(IN) :: xyz_i(iim*jjm,3) 443 450 444 451 REAL(rstd) :: dq,dmass,qe,newmass
Note: See TracChangeset
for help on using the changeset viewer.