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/unstructured/caldyn_unstructured.F90

    r833 r836  
    22  USE ISO_C_BINDING 
    33  USE OMP_LIB 
     4  USE earth_const 
    45  USE data_unstructured_mod 
    56  IMPLICIT NONE 
    … …  
    119120  FIELD_PS     :: ps        ! OUT 
    120121  DECLARE_INDICES 
    121   NUM :: gdz, ke, uu, chi, gv, exner_ik, temp_ik, p_ik, qv, Rmix 
     122  NUM :: gdz, ke, uu, chi, gv, exner_ik, temp_ik, p_ik, qv, Rmix, Cp_ik 
    122123  START_TRACE(id_geopot, 3,0,3) 
    123124#include "../kernels_unst/compute_geopot.k90" 
Note: See TracChangeset for help on using the changeset viewer.