Changeset 599 for codes/icosagcm/trunk/src/diagnostics/check_conserve.f90
- Timestamp:
- 10/19/17 17:04:26 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/diagnostics/check_conserve.f90
r548 r599 299 299 REAL(rstd),INTENT(INOUT) :: e, s, AAM_mass, AAM_vel, rmsv 300 300 301 REAL(rstd) :: ucenter(iim*jjm, 3,llm)301 REAL(rstd) :: ucenter(iim*jjm,llm,3) 302 302 REAL(rstd) :: ulon(iim*jjm,llm) 303 303 REAL(rstd) :: ulat(iim*jjm,llm)
Note: See TracChangeset
for help on using the changeset viewer.