Ignore:
Timestamp:
05/30/17 21:33:09 (7 years ago)
Author:
dubos
Message:

devel : macro-generated kernels for compute_geopot and caldyn_slow_hydro

File:
1 moved

Legend:

Unmodified
Added
Removed

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

    r536 r537  
    3535 
    3636    INTEGER :: i,j,ij,l 
    37     REAL(rstd) :: Rd, p_ik, exner_ik, temp_ik, qv, chi, Rmix 
     37    REAL(rstd) :: Rd, p_ik, exner_ik, temp_ik, qv, chi, Rmix, gv 
    3838    INTEGER    :: ij_omp_begin_ext, ij_omp_end_ext 
    3939 
    … …  
    4747 
    4848    Rd = kappa*cpp 
     49 
     50#ifdef CPP_DYSL 
     51#include "../kernels/compute_geopot.k90" 
     52#else 
    4953 
    5054    ! Pressure is computed first top-down (temporarily stored in pk) 
    … …  
    158162    END IF 
    159163 
     164#endif 
     165 
    160166    !ym flush geopot 
    161167    !$OMP BARRIER 
Note: See TracChangeset for help on using the changeset viewer.