Changeset 91 for codes/icosagcm/trunk
- Timestamp:
- 08/03/12 22:23:29 (12 years ago)
- Location:
- codes/icosagcm/trunk
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/etat0_dcmip2.f90
r71 r91 71 71 REAL(rstd), INTENT(OUT) :: u(3*iim*jjm,llm) 72 72 REAL(rstd), INTENT(OUT) :: theta_rhodz(iim*jjm,llm) 73 REAL(rstd), INTENT(OUT) :: q(iim*jjm )73 REAL(rstd), INTENT(OUT) :: q(iim*jjm,llm) 74 74 REAL(rstd) :: ulon(3*iim*jjm,llm), ulat(3*iim*jjm,llm), temp(iim*jjm,llm) 75 75 … … 107 107 CALL compute_wind_perp_from_lonlat_compound(ulon,ulat,u) 108 108 109 q=1. 110 109 111 CONTAINS 110 112
Note: See TracChangeset
for help on using the changeset viewer.