Changeset 834 for codes/icosagcm/devel/src/dynamics/caldyn_vars.f90

Timestamp:

05/03/19 12:10:30 (5 years ago)

Author:

dubos

Message:

devel : moved thermodynamics from caldyn_vars to earth_const

File:

• codes/icosagcm/devel/src/dynamics/caldyn_vars.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/dynamics/caldyn_vars.f90

@@ -1 +1 @@
 MODULE caldyn_vars_mod
-  USE icosa
+  USE field_mod
   USE transfert_mod
   IMPLICIT NONE
@@ -8 +8 @@
   INTEGER, PUBLIC, PARAMETER :: conserv_energy=1, conserv_enstrophy=2, conserv_gassmann=3, &
        kinetic_trisk=1, kinetic_consistent=2, &
-       caldyn_vert_noncons=1, caldyn_vert_cons=2, &
-       thermo_none=-99, thermo_theta=1, thermo_entropy=2, &
-       thermo_moist=3, thermo_boussinesq=4, thermo_dry=10, thermo_fake_moist=11, thermo_moist_debug=100
+       caldyn_vert_noncons=1, caldyn_vert_cons=2
 
-  INTEGER, PUBLIC :: caldyn_conserv, caldyn_kinetic, caldyn_thermo, caldyn_vert_variant, physics_thermo
-  !$OMP THREADPRIVATE(caldyn_conserv, caldyn_kinetic, caldyn_thermo, caldyn_vert_variant, physics_thermo)
+  INTEGER, PUBLIC :: caldyn_conserv, caldyn_kinetic, caldyn_vert_variant
+  !$OMP THREADPRIVATE(caldyn_conserv, caldyn_kinetic, caldyn_vert_variant)
 
-  LOGICAL, PUBLIC :: boussinesq, hydrostatic
-  !$OMP THREADPRIVATE(boussinesq, hydrostatic)
+  LOGICAL, PUBLIC :: hydrostatic
+  !$OMP THREADPRIVATE(hydrostatic)
 
   LOGICAL, PUBLIC :: dysl, dysl_geopot, dysl_pvort_only, dysl_caldyn_fast, dysl_caldyn_coriolis, dysl_slow_hydro, dysl_caldyn_vert