- Timestamp:
- 07/16/19 01:44:17 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/diagnostics/compute_pression.F90
r955 r956 170 170 171 171 SUBROUTINE compute_hydrostatic_pressure_unst(rhodz, theta_rhodz, ps, pk) 172 FIELD_MASS, INTENT(IN) :: rhodz ! mass per unit surface in each model level173 FIELD_THETA, INTENT(IN) :: theta_rhodz (iim*jjm,llm, nqdyn) ! dynamical tracers (theta/entropy)174 FIELD_PS, INTENT(OUT) :: ps (iim*jjm) ! surface pressure, diagnosed if Lagrangian vertical coordinate175 FIELD_MASS, INTENT(OUT) :: pk (iim*jjm,llm) ! pressure at full levels172 FIELD_MASS, INTENT(IN) :: rhodz 173 FIELD_THETA, INTENT(IN) :: theta_rhodz 174 FIELD_PS, INTENT(OUT) :: ps 175 FIELD_MASS, INTENT(OUT) :: pk 176 176 DECLARE_INDICES 177 177 #include "../kernels_unst/compute_hydrostatic_pressure.k90"
Note: See TracChangeset
for help on using the changeset viewer.