- Timestamp:
- 07/27/12 16:34:49 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/wind.f90
r36 r38 197 197 IMPLICIT NONE 198 198 REAL(rstd) :: uc(iim*jjm,3,llm) 199 REAL(rstd) :: ulon(iim*jjm, 3,llm)200 REAL(rstd) :: ulat(iim*jjm, 3,llm)199 REAL(rstd) :: ulon(iim*jjm,llm) 200 REAL(rstd) :: ulat(iim*jjm,llm) 201 201 202 202 INTEGER :: i,j,ij,l
Note: See TracChangeset
for help on using the changeset viewer.