Last change
on this file since 927 was
839,
checked in by dubos, 5 years ago
|
devel : allocate_field for unstructured mesh
|
File size:
859 bytes
|
Rev | Line | |
---|
[12] | 1 | MODULE grid_param |
---|
[839] | 2 | USE ISO_C_BINDING |
---|
[830] | 3 | IMPLICIT NONE |
---|
| 4 | SAVE |
---|
[839] | 5 | |
---|
| 6 | ! Some variable are BIND(C) to be accessible from Python ! They are declared using C sizes |
---|
| 7 | |
---|
[15] | 8 | INTEGER :: iim_glo=40 |
---|
| 9 | INTEGER :: jjm_glo |
---|
[813] | 10 | INTEGER, PARAMETER :: nb_face=10 |
---|
| 11 | INTEGER, PARAMETER :: grid_unst=1, grid_ico = 2 |
---|
| 12 | INTEGER :: grid_type ! unstructured or icosahedral |
---|
[839] | 13 | |
---|
| 14 | INTEGER(C_INT), BIND(C) :: llm=19, & ! number of vertical levels |
---|
| 15 | nqdyn ! number of dynamical tracers : 1 if dry, more if moist |
---|
| 16 | |
---|
[387] | 17 | INTEGER :: nqtot ! number of tracers handled by advection scheme |
---|
[839] | 18 | |
---|
| 19 | INTEGER(C_INT), BIND(C) :: edge_num, primal_num, dual_num, & |
---|
| 20 | max_primal_deg, max_dual_deg, max_trisk_deg |
---|
| 21 | |
---|
[12] | 22 | END MODULE grid_param |
---|
Note: See
TracBrowser
for help on using the repository browser.