Changeset 21 for codes/icosagcm/trunk/src/geometry.f90
- Timestamp:
- 07/18/12 11:15:39 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/geometry.f90
r17 r21 257 257 REAL(rstd) :: surf_v(6) 258 258 REAL(rstd) :: vect(3,6) 259 REAL(rstd) :: centr( 6)259 REAL(rstd) :: centr(3) 260 260 REAL(rstd) :: vet(3),vep(3) 261 261 INTEGER :: ind,i,j,k,n
Note: See TracChangeset
for help on using the changeset viewer.