Changeset 839 for codes/icosagcm/devel/src/base/grid_param.f90

Timestamp:

05/03/19 14:15:16 (5 years ago)

Author:

dubos

Message:

devel : allocate_field for unstructured mesh

File:

• codes/icosagcm/devel/src/base/grid_param.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/base/grid_param.f90

@@ -1 +1 @@
 MODULE grid_param
+  USE ISO_C_BINDING
   IMPLICIT NONE
   SAVE
+
+! Some variable are BIND(C) to be accessible from Python                                                                                                                                                   ! They are declared using C sizes
+
   INTEGER  :: iim_glo=40
   INTEGER  :: jjm_glo
@@ -7 +11 @@
   INTEGER, PARAMETER :: grid_unst=1, grid_ico = 2
   INTEGER  :: grid_type ! unstructured or icosahedral
-  INTEGER, BIND(C) :: llm=19
+
+  INTEGER(C_INT), BIND(C) :: llm=19, &  ! number of vertical levels
+                             nqdyn      ! number of dynamical tracers : 1 if dry, more if moist
+
   INTEGER  :: nqtot ! number of tracers handled by advection scheme
-  INTEGER, BIND(C) :: nqdyn ! number of dynamical tracers : 1 if dry, more if moist
+
+  INTEGER(C_INT), BIND(C) :: edge_num, primal_num, dual_num, &
+       max_primal_deg, max_dual_deg, max_trisk_deg
+
 END MODULE grid_param