Changeset 582


Ignore:
Timestamp:
10/13/17 18:15:13 (7 years ago)
Author:
dubos
Message:

devel : kernel for advect_horiz

Location:
codes/icosagcm/devel/src
Files:
1 added
1 moved

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/transport/advect.F90

    r581 r582  
    442442    CALL trace_start("compute_advect_horiz") 
    443443 
     444#if 1 
     445 
     446#include "../kernels/advect_horiz.k90" 
     447 
     448#else 
    444449    ! evaluate tracer field at point cc using piecewise linear reconstruction 
    445450    ! q(cc)= q0 + gradq.(cc-xyz_i)  with xi centroid of hexagon 
    … …  
    511516       END DO 
    512517    END DO 
    513  
     518#endif 
    514519    CALL trace_end("compute_advect_horiz") 
    515520  CONTAINS 
Note: See TracChangeset for help on using the changeset viewer.