- Timestamp:
- 10/11/18 18:27:15 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/data_unstructured.F90
r749 r759 164 164 dual_ne(:,:) = dual_ne_(:,:) 165 165 dual_vertex(:,:) = dual_vertex_(:,:) 166 IF(MINVAL(dual_deg)< 3) THEN167 STOP 'At least one dual cell has less than 3vertices'168 END IF 169 IF(MINVAL(primal_deg)< 3) THEN170 STOP 'At least one primal cell has less than 3vertices'166 IF(MINVAL(dual_deg)<2) THEN 167 STOP 'At least one dual cell has less than 2 vertices' 168 END IF 169 IF(MINVAL(primal_deg)<2) THEN 170 STOP 'At least one primal cell has less than 2 vertices' 171 171 END IF 172 172 left(:)=left_(:)
Note: See TracChangeset
for help on using the changeset viewer.