Changeset 628 for codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90
- Timestamp:
- 12/11/17 14:39:35 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90
r627 r628 180 180 REAL(rstd),INTENT(INOUT) :: dtheta_rhodz(iim*jjm,llm,nqdyn) 181 181 REAL(rstd),INTENT(OUT) :: dps(iim*jjm) 182 INTEGER, PARAMETER :: caldyn_vert_cons=1, caldyn_vert_variant=caldyn_vert_cons183 182 184 183 ! temporary variable
Note: See TracChangeset
for help on using the changeset viewer.