Ignore:
Timestamp:
05/03/19 13:25:21 (5 years ago)
Author:
dubos
Message:

devel : Cp(T) thermodynamics (TBC)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r731 r836  
    2424 
    2525    INTEGER :: i,j,ij,l 
    26     REAL(rstd) :: Rd, p_ik, exner_ik, temp_ik, qv, chi, Rmix, gv 
     26    REAL(rstd) :: p_ik, exner_ik, Cp_ik, temp_ik, qv, chi, Rmix, gv 
    2727    INTEGER    :: ij_omp_begin_ext, ij_omp_end_ext 
    2828 
    … …  
    3232 
    3333    CALL distrib_level(ij_begin_ext,ij_end_ext, ij_omp_begin_ext,ij_omp_end_ext) 
    34  
    35     Rd = kappa*cpp 
    3634 
    3735    IF(dysl_geopot) THEN 
Note: See TracChangeset for help on using the changeset viewer.