Ignore:
Timestamp:
05/03/19 13:40:15 (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_hevi.F90

    r831 r837  
    368368 
    369369    INTEGER :: i,j,ij,l 
    370     REAL(rstd) :: Rd, qv, temp, chi, nu, due, due_right, due_lup, due_ldown 
     370    REAL(rstd) :: cp_ik, qv, temp, chi, nu, due, due_right, due_lup, due_ldown 
    371371 
    372372    CALL trace_start("compute_caldyn_fast") 
    373  
    374     Rd=cpp*kappa 
    375373 
    376374    IF(dysl_caldyn_fast) THEN 
Note: See TracChangeset for help on using the changeset viewer.