Changeset 936 for codes/icosagcm/devel/src
- Timestamp:
- 07/03/19 17:57:56 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/data_unstructured.F90
r867 r936 3 3 USE earth_const, ONLY : thermo_theta 4 4 USE mpipara, ONLY : is_mpi_master 5 USE grid_param, ONLY : llm, nqdyn 5 USE grid_param, ONLY : llm, nqdyn, primal_num, edge_num, dual_num, & 6 max_primal_deg, max_dual_deg, max_trisk_deg 6 7 USE geometry, ONLY : le, le_de, fv, Av, Ai 7 8 #ifdef CPP_USING_OMP … … 27 28 #endif 28 29 29 INDEX, BIND(C) :: edge_num, primal_num, dual_num, &30 max_primal_deg, max_dual_deg, max_trisk_deg31 30 INDEX, POINTER :: & ! deg(ij) = nb of vertices = nb of edges of primal/dual cell ij 32 31 primal_deg(:), primal_edge(:,:), primal_vertex(:,:), primal_ne(:,:), &
Note: See TracChangeset
for help on using the changeset viewer.