Changeset 582 for codes/icosagcm/devel/src
- Timestamp:
- 10/13/17 18:15:13 (7 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 1 added
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/transport/advect.F90
r581 r582 442 442 CALL trace_start("compute_advect_horiz") 443 443 444 #if 1 445 446 #include "../kernels/advect_horiz.k90" 447 448 #else 444 449 ! evaluate tracer field at point cc using piecewise linear reconstruction 445 450 ! q(cc)= q0 + gradq.(cc-xyz_i) with xi centroid of hexagon … … 511 516 END DO 512 517 END DO 513 518 #endif 514 519 CALL trace_end("compute_advect_horiz") 515 520 CONTAINS
Note: See TracChangeset
for help on using the changeset viewer.