Changeset 837 for codes/icosagcm/devel/src/unstructured

Timestamp:

05/03/19 13:40:15 (5 years ago)

Author:

dubos

Message:

devel : Cp(T) thermodynamics (TBC)

Location:

codes/icosagcm/devel/src/unstructured

Files:

• caldyn_unstructured.F90 (modified) (1 diff)
• data_unstructured.F90 (modified) (2 diffs)

codes/icosagcm/devel/src/unstructured/caldyn_unstructured.F90

@@ -203 +203 @@
   DECLARE_INDICES
   DECLARE_EDGES
-  NUM          :: due
+  NUM          :: due, cp_ik
   START_TRACE(id_fast, 4,0,2) ! primal, dual, edge
 #include "../kernels_unst/caldyn_fast.k90"

codes/icosagcm/devel/src/unstructured/data_unstructured.F90

@@ -14 +14 @@
 
   INTEGER, PARAMETER :: eta_mass=1, eta_lag=2, &
-!       thermo_theta=1, thermo_entropy=2, thermo_moist=3, thermo_boussinesq=4, &
        caldyn_vert_cons=1, max_nb_stage=5
   INDEX,  BIND(C) :: caldyn_eta=eta_lag, &
        caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0
-!  INDEX,  BIND(C) :: caldyn_thermo=thermo_theta, caldyn_eta=eta_lag, &
-!       caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0
   LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_on=.FALSE.
   LOGICAL(C_BOOL), BIND(C, NAME='debug_hevi_solver') :: debug_hevi_solver_=.TRUE.
@@ -44 +41 @@
   TIME, BIND(C) :: elapsed
   NUM, BIND(C) :: ptop, pbot, Phi_bot, rho_bot
-!  NUM, BIND(C) :: g, ptop, cpp, cppv, Rd, Rv, preff, Treff, pbot, Phi_bot, rho_bot
-!  NUM :: kappa
   NUM1(max_nb_stage), BIND(C)              :: tauj       ! diagonal of fast Butcher tableau
   NUM2(max_nb_stage,max_nb_stage), BIND(C) :: cslj, cflj ! slow and fast modified Butcher tableaus