Changeset 864 for codes/icosagcm/devel/src
- Timestamp:
- 05/09/19 01:40:47 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/icosa_init.f90
r856 r864 24 24 USE profiling_mod 25 25 USE init_grid_param_mod 26 USE compute_geometry_mod 26 27 IMPLICIT NONE 27 28 … … 42 43 !$OMP PARALLEL 43 44 CALL switch_omp_no_distrib_level 44 IF(grid_type == grid_ico) THEN 45 CALL compute_geometry 46 ELSE 47 swap_needed=.FALSE. ! do this inside an OMP PARALLEL loop to affect all threads 48 END IF 45 CALL compute_geometry 49 46 CALL check_total_area 50 47
Note: See TracChangeset
for help on using the changeset viewer.