Changeset 612


Ignore:
Timestamp:
11/22/17 00:06:57 (6 years ago)
Author:
dubos
Message:

devel : rename directory kernels as kernels_hex

Location:
codes/icosagcm/devel/src
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/diagnostics/diagflux.F90

    r603 r612  
    170170    ! => loop over interior region 
    171171    CALL distrib_level(ij_begin_ext, ij_end_ext, ij_omp_begin_ext,ij_omp_end_ext) 
    172 #include "../kernels/energy_fluxes.k90" 
     172#include "../kernels_hex/energy_fluxes.k90" 
    173173  END SUBROUTINE compute_diagflux_energy 
    174174 

  • codes/icosagcm/devel/src/diagnostics/wind.F90

    r587 r612  
    5555  REAL(rstd), PARAMETER :: scale=1. 
    5656  REAL(rstd) :: fac, ue_le, cx,cy,cz, ux,uy,uz 
    57 #include "../kernels/wind_centered.k90" 
     57#include "../kernels_hex/wind_centered.k90" 
    5858 END SUBROUTINE compute_wind_centered 
    5959  
    … …  
    6464  INTEGER :: ij,l 
    6565  REAL(rstd) :: fac, ue_le, cx,cy,cz, ux,uy,uz 
    66 #include "../kernels/flux_centered.k90" 
     66#include "../kernels_hex/flux_centered.k90" 
    6767  END SUBROUTINE compute_flux_centered 
    6868  

  • codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90

    r603 r612  
    4848 
    4949    IF(dysl_geopot) THEN 
    50 #include "../kernels/compute_geopot.k90" 
     50#include "../kernels_hex/compute_geopot.k90" 
    5151    ELSE 
    5252    ! Pressure is computed first top-down (temporarily stored in pk) 
    … …  
    310310    IF(dysl) THEN 
    311311!$OMP BARRIER 
    312 #include "../kernels/caldyn_vert_NH.k90" 
     312#include "../kernels_hex/caldyn_vert_NH.k90" 
    313313!$OMP BARRIER 
    314314    ELSE 

  • codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90

    r603 r612  
    6262!!! Compute shallow-water potential vorticity 
    6363    IF(dysl_pvort_only) THEN 
    64 #include "../kernels/pvort_only.k90" 
     64#include "../kernels_hex/pvort_only.k90" 
    6565    ELSE 
    6666 
    … …  
    126126    IF(dysl) THEN 
    127127#define PHI_BOT(ij) phis(ij) 
    128 #include "../kernels/compute_NH_geopot.k90" 
     128#include "../kernels_hex/compute_NH_geopot.k90" 
    129129#undef PHI_BOT 
    130130    ELSE 
    … …  
    294294#define PHI_BOT(ij) phis(ij) 
    295295#define PHI_BOT_VAR phis 
    296 #include "../kernels/caldyn_solver.k90" 
     296#include "../kernels_hex/caldyn_solver.k90" 
    297297#undef PHI_BOT_VAR 
    298298#undef PHI_BOT 
    … …  
    409409 
    410410    IF(dysl_caldyn_fast) THEN 
    411 #include "../kernels/caldyn_fast.k90" 
     411#include "../kernels_hex/caldyn_fast.k90" 
    412412    ELSE 
    413413 
    … …  
    531531    IF(dysl_caldyn_coriolis) THEN 
    532532 
    533 #include "../kernels/coriolis.k90" 
     533#include "../kernels_hex/coriolis.k90" 
    534534 
    535535    ELSE 
    … …  
    693693 
    694694#define BERNI(ij,l) berni(ij,l) 
    695 #include "../kernels/caldyn_slow_hydro.k90" 
     695#include "../kernels_hex/caldyn_slow_hydro.k90" 
    696696#undef BERNI 
    697697 
    … …  
    785785 
    786786!$OMP BARRIER 
    787 #include "../kernels/caldyn_slow_NH.k90" 
     787#include "../kernels_hex/caldyn_slow_NH.k90" 
    788788!$OMP BARRIER 
    789789      

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

    r594 r612  
    442442 
    443443    CALL trace_start("compute_advect_horiz") 
    444 #include "../kernels/advect_horiz.k90" 
     444#include "../kernels_hex/advect_horiz.k90" 
    445445    CALL trace_end("compute_advect_horiz") 
    446446  END SUBROUTINE compute_advect_horiz 
Note: See TracChangeset for help on using the changeset viewer.