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

Last change on this file since 731 was 731, checked in by dubos, 6 years ago

devel : cleanup and reorganization in dynamics/
File size: 519 bytes
Line 
1MODULE caldyn_vars_mod
2  USE icosa
3  USE transfert_mod
4  IMPLICIT NONE
5  PUBLIC
6  SAVE
7
8  INTEGER, PARAMETER :: energy=1, enstrophy=2
9
10  ! temporary shared variables for caldyn
11  TYPE(t_field),POINTER :: f_qu(:), f_qv(:), f_pk(:),f_wwuu(:),f_planetvel(:), &
12                           f_Fel(:), f_gradPhi2(:), f_wil(:), f_Wetadot(:)
13
14  INTEGER :: caldyn_conserv
15  !$OMP THREADPRIVATE(caldyn_conserv)
16
17  TYPE(t_message) :: req_ps, req_mass, req_theta_rhodz, req_u, req_qu, req_geopot, req_w
18
19END MODULE caldyn_vars_mod
Note: See TracBrowser for help on using the repository browser.