source: codes/icosagcm/devel/src/dynamics/caldyn_vars.f90 @ 834

Last change on this file since 834 was 834, checked in by dubos, 5 years ago

devel : moved thermodynamics from caldyn_vars to earth_const
File size: 1.1 KB
Line 
1MODULE 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_Fel(:), f_gradPhi2(:), f_wil(:), f_Wetadot(:)
25
26  TYPE(t_message), PUBLIC :: req_ps, req_mass, req_theta_rhodz, req_u, req_qu, req_geopot, req_w, req_Kv
27
28END MODULE caldyn_vars_mod
Note: See TracBrowser for help on using the repository browser.