Changeset 954 for codes/icosagcm/trunk/src/dynamics/caldyn_kernels_base.F90
- Timestamp:
- 07/15/19 12:29:31 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dynamics/caldyn_kernels_base.F90
r953 r954 209 209 END SUBROUTINE compute_geopot 210 210 211 SUBROUTINE compute_caldyn_vert(u, theta, rhodz, convm, wflux, wwuu, dps, dtheta_rhodz, du) 212 USE disvert_mod, ONLY : bp 211 SUBROUTINE compute_caldyn_vert(u, theta, rhodz, convm, wflux, wwuu, dps, dtheta_rhodz, du, bp) 213 212 REAL(rstd),INTENT(IN) :: u(iim*3*jjm,llm) 214 213 REAL(rstd),INTENT(IN) :: theta(iim*jjm,llm,nqdyn) … … 221 220 REAL(rstd),INTENT(INOUT) :: dtheta_rhodz(iim*jjm,llm,nqdyn) 222 221 REAL(rstd),INTENT(OUT) :: dps(iim*jjm) 222 REAL(rstd),INTENT(IN) :: bp(llm) 223 223 224 224 ! temporary variable
Note: See TracChangeset
for help on using the changeset viewer.