Changeset 813 for codes/icosagcm/devel/src/unstructured/data_unstructured.F90

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/unstructured/data_unstructured.F90 (modified) (3 diffs)

codes/icosagcm/devel/src/unstructured/data_unstructured.F90

@@ -2 +2 @@
   USE ISO_C_BINDING
   USE OMP_LIB
+  USE mpipara, ONLY : is_mpi_master
+  USE grid_param, ONLY : llm, nqdyn
   IMPLICIT NONE
   SAVE
+
 
 #include "unstructured.h90"
@@ -12 +15 @@
   INDEX,  BIND(C) :: caldyn_thermo=thermo_theta, caldyn_eta=eta_lag, &
        caldyn_vert_variant=caldyn_vert_cons, nb_threads=0, nb_stage=0
-  LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., is_mpi_master=.TRUE., debug_on=.FALSE.
+  LOGICAL(C_BOOL), BIND(C) :: hydrostatic=.TRUE., debug_on=.FALSE.
   LOGICAL(C_BOOL), BIND(C, NAME='debug_hevi_solver') :: debug_hevi_solver_=.TRUE.
 
@@ -21 +24 @@
 #endif
 
-  INDEX, BIND(C) :: llm, nqdyn, edge_num, primal_num, dual_num, &
+  INDEX, BIND(C) :: edge_num, primal_num, dual_num, &
        max_primal_deg, max_dual_deg, max_trisk_deg
   INDEX, ALLOCATABLE :: & ! deg(ij) = nb of vertices = nb of edges of primal/dual cell ij