Ignore:
Timestamp:
07/09/12 15:23:38 (12 years ago)
Author:
ymipsl
Message:

Update on 3D dynamic

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/domain.f90

    r12 r15  
    190190            ng2=d%neighbour(:,MOD(k+1,6),i,j) 
    191191            IF (sqrt(sum((ng1-ng2)**2))<1e-16) ng2=d%neighbour(:,MOD(k+2,6),i,j) 
    192             CALL circonscrit(d%xyz(:,i,j),ng1,ng2,d%vertex(:,k,i,j)) 
     192            CALL circumcenter(d%xyz(:,i,j),ng1,ng2,d%vertex(:,k,i,j)) 
    193193          ENDDO 
    194194        ENDDO 
Note: See TracChangeset for help on using the changeset viewer.