Changeset 926 for codes/icosagcm/devel/src
- Timestamp:
- 06/21/19 00:42:30 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/base/init_grid_param.f90
r913 r926 30 30 IF (is_mpi_root) PRINT *,'DYNAMICO mesh is icosahedral.' 31 31 CALL getin('nbp',iim_glo) 32 IF(is_mpi_root) PRINT *, 'GETIN nbp = ',iim_glo 33 iim_glo=iim_glo+1 32 34 jjm_glo=iim_glo 33 IF(is_mpi_root) PRINT *, 'GETIN nbp = ',iim_glo34 35 CALL select_compute_hex 35 36 CASE('unstructured')
Note: See TracChangeset
for help on using the changeset viewer.