Changeset 840
- Timestamp:
- 05/03/19 16:09:43 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/compute_pvort_only.F90
r827 r840 7 7 #include "../unstructured/unstructured.h90" 8 8 9 PROCEDURE(comp_pvort_only), POINTER :: &10 ptr1 => compute_pvort_only_unst, &11 ptr2 => compute_pvort_only_hex12 13 9 PUBLIC :: compute_pvort_only_hex, compute_pvort_only_unst 14 10 15 11 CONTAINS 12 13 SUBROUTINE check_interface 14 PROCEDURE(comp_pvort_only), POINTER :: ptr 15 ptr => compute_pvort_only_unst 16 ptr => compute_pvort_only_hex 17 END SUBROUTINE check_interface 16 18 17 19 SUBROUTINE compute_pvort_only_unst(u,rhodz,qu,qv, hv_)
Note: See TracChangeset
for help on using the changeset viewer.