- Timestamp:
- 06/17/19 17:38:58 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/diagnostics/compute_diagnostics.f90
r906 r913 12 12 END SUBROUTINE comp_rhodz 13 13 14 SUBROUTINE comp_pression(ps, p, offset) 15 USE prec, ONLY : rstd 16 INTEGER, INTENT(IN) :: offset 17 REAL(rstd), INTENT(IN) :: ps(1) 18 REAL(rstd), INTENT(OUT) :: p(1,1) 19 END SUBROUTINE comp_pression 14 20 END INTERFACE 15 21 16 22 PROCEDURE(comp_rhodz), POINTER :: compute_rhodz 23 PROCEDURE(comp_pression), POINTER :: compute_pression, compute_pression_mid 17 24 18 25 END MODULE compute_diagnostics_mod
Note: See TracChangeset
for help on using the changeset viewer.