Changeset 954 for codes/icosagcm/trunk/src/transport/advect_tracer.F90
- Timestamp:
- 07/15/19 12:29:31 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/transport/advect_tracer.F90
r953 r954 143 143 END DO 144 144 145 CALL compute_backward_traj(tangent,normal,u,0.5*dt*itau_adv, cc) 145 CALL compute_backward_traj(tangent,normal,u,0.5*dt*itau_adv, cc, & 146 xyz_e, de, wee, le ) ! metrics terms 146 147 END DO 147 148 … … 193 194 END IF 194 195 END IF 195 CALL compute_advect_horiz(k==nq_last,frac>0., hfluxt,cc,gradq3d, rhodz, q(:,:,k), qfluxt(:,:,k)) 196 CALL compute_advect_horiz(k==nq_last,frac>0., hfluxt,cc,gradq3d, rhodz, q(:,:,k), qfluxt(:,:,k), & 197 Ai, xyz_i) ! metrics terms 196 198 END DO 197 199
Note: See TracChangeset
for help on using the changeset viewer.