Changeset 813 for codes/icosagcm/devel/src/base

Timestamp:

03/13/19 16:02:44 (5 years ago)

Author:

jisesh

Message:

devel ; towards Fortran driver for unstructured/LAM meshes

File:

• codes/icosagcm/devel/src/base/grid_param.f90 (modified) (1 diff)

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

@@ -2 +2 @@
   INTEGER  :: iim_glo=40
   INTEGER  :: jjm_glo
-  INTEGER,PARAMETER  :: nb_face=10
-  INTEGER  :: llm=19
+  INTEGER, PARAMETER  :: nb_face=10
+  INTEGER, PARAMETER :: grid_unst=1, grid_ico = 2
+  INTEGER  :: grid_type ! unstructured or icosahedral
+  INTEGER, BIND(C) :: llm=19
   INTEGER  :: nqtot ! number of tracers handled by advection scheme
-  INTEGER  :: nqdyn ! number of dynamical tracers : 1 if dry, more if moist
+  INTEGER, BIND(C) :: nqdyn ! number of dynamical tracers : 1 if dry, more if moist
 
 CONTAINS