source: codes/icosagcm/devel/src/base/grid_param.f90 @ 862

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

devel : allocate_field for unstructured mesh
File size: 859 bytes
Line 
1MODULE grid_param
2  USE ISO_C_BINDING
3  IMPLICIT NONE
4  SAVE
5
6! Some variable are BIND(C) to be accessible from Python                                                                                                                                                   ! They are declared using C sizes
7
8  INTEGER  :: iim_glo=40
9  INTEGER  :: jjm_glo
10  INTEGER, PARAMETER  :: nb_face=10
11  INTEGER, PARAMETER :: grid_unst=1, grid_ico = 2
12  INTEGER  :: grid_type ! unstructured or icosahedral
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
17  INTEGER  :: nqtot ! number of tracers handled by advection scheme
18
19  INTEGER(C_INT), BIND(C) :: edge_num, primal_num, dual_num, &
20       max_primal_deg, max_dual_deg, max_trisk_deg
21
22END MODULE grid_param
Note: See TracBrowser for help on using the repository browser.