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
|
Rev | Line | |
---|
[731] | 1 | MODULE 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 | |
---|
| 19 | END MODULE caldyn_vars_mod |
---|
Note: See
TracBrowser
for help on using the repository browser.