Changeset 899 for codes/icosagcm/trunk/src/sphere/metric.f90
- Timestamp:
- 06/13/19 16:45:41 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/sphere/metric.f90
r711 r899 117 117 REAL(rstd) :: rot=0. 118 118 INTEGER :: nf,i,j 119 REAL(rstd),DIMENSION(3) :: p1 ,p2,p3119 REAL(rstd),DIMENSION(3) :: p1 120 120 REAL(rstd) :: d1,d2,d3 121 121 … … 180 180 REAL(rstd) :: rot=0. 181 181 INTEGER :: nf,i,j 182 REAL(rstd),DIMENSION(3) :: p1,p2,p3183 REAL(rstd) :: d1,d2,d3184 182 185 183 len_edge=acos(cos(Pi/5)*cos(2*Pi/5)/(sin(Pi/5)*sin(2*Pi/5))) … … 467 465 INTEGER :: ind,ind2 468 466 INTEGER :: nf,nf2,nfm1,nfp1 469 INTEGER :: i,j,k 470 INTEGER :: delta 467 INTEGER :: i,j 471 468 472 469 ind=0 … … 836 833 SUBROUTINE set_cell_vertex 837 834 IMPLICIT NONE 838 INTEGER :: i,j,k,k2835 INTEGER :: k,k2 839 836 INTEGER :: ind,ind1,ind2 840 837 INTEGER :: ng1,ng2
Note: See TracChangeset
for help on using the changeset viewer.