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