Ignore:
Timestamp:
10/11/18 18:27:15 (6 years ago)
Author:
dubos
Message:

devel/unstructured : towards XIOS output with curvilinear mesh

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r749 r759  
    164164    dual_ne(:,:) = dual_ne_(:,:) 
    165165    dual_vertex(:,:) = dual_vertex_(:,:) 
    166     IF(MINVAL(dual_deg)<3) THEN 
    167        STOP 'At least one dual cell has less than 3 vertices' 
    168     END IF 
    169     IF(MINVAL(primal_deg)<3) THEN 
    170        STOP 'At least one primal cell has less than 3 vertices' 
     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' 
    171171    END IF 
    172172    left(:)=left_(:) 
Note: See TracChangeset for help on using the changeset viewer.