[731] | 1 | MODULE caldyn_vars_mod |
---|
| 2 | USE icosa |
---|
| 3 | USE transfert_mod |
---|
| 4 | IMPLICIT NONE |
---|
[827] | 5 | PRIVATE |
---|
[731] | 6 | SAVE |
---|
| 7 | |
---|
[827] | 8 | INTEGER, PUBLIC, PARAMETER :: conserv_energy=1, conserv_enstrophy=2, conserv_gassmann=3, & |
---|
[733] | 9 | kinetic_trisk=1, kinetic_consistent=2, & |
---|
| 10 | caldyn_vert_noncons=1, caldyn_vert_cons=2, & |
---|
[732] | 11 | thermo_none=-99, thermo_theta=1, thermo_entropy=2, & |
---|
| 12 | thermo_moist=3, thermo_boussinesq=4, thermo_dry=10, thermo_fake_moist=11, thermo_moist_debug=100 |
---|
[731] | 13 | |
---|
[827] | 14 | INTEGER, PUBLIC :: caldyn_conserv, caldyn_kinetic, caldyn_thermo, caldyn_vert_variant, physics_thermo |
---|
[733] | 15 | !$OMP THREADPRIVATE(caldyn_conserv, caldyn_kinetic, caldyn_thermo, caldyn_vert_variant, physics_thermo) |
---|
[732] | 16 | |
---|
[827] | 17 | LOGICAL, PUBLIC :: boussinesq, hydrostatic |
---|
[732] | 18 | !$OMP THREADPRIVATE(boussinesq, hydrostatic) |
---|
| 19 | |
---|
[827] | 20 | LOGICAL, PUBLIC :: dysl, dysl_geopot, dysl_pvort_only, dysl_caldyn_fast, dysl_caldyn_coriolis, dysl_slow_hydro, dysl_caldyn_vert |
---|
[732] | 21 | !$OMP THREADPRIVATE(dysl, dysl_geopot, dysl_pvort_only, dysl_caldyn_fast, dysl_caldyn_coriolis, dysl_slow_hydro, dysl_caldyn_vert) |
---|
| 22 | |
---|
[731] | 23 | ! temporary shared variables for caldyn |
---|
[827] | 24 | TYPE(t_field),POINTER, PUBLIC :: f_qu(:), f_qv(:), f_Kv(:), f_hv(:), & |
---|
[733] | 25 | f_pk(:),f_wwuu(:),f_planetvel(:), & |
---|
[731] | 26 | f_Fel(:), f_gradPhi2(:), f_wil(:), f_Wetadot(:) |
---|
| 27 | |
---|
[827] | 28 | TYPE(t_message), PUBLIC :: req_ps, req_mass, req_theta_rhodz, req_u, req_qu, req_geopot, req_w, req_Kv |
---|
[731] | 29 | |
---|
| 30 | END MODULE caldyn_vars_mod |
---|