source: codes/icosagcm/devel/src/diagnostics/compute_diagnostics.f90 @ 915

Last change on this file since 915 was 913, checked in by dubos, 5 years ago

devel : compute_pression for unstructured mesh
File size: 683 bytes
Line 
1MODULE compute_diagnostics_mod
2  IMPLICIT NONE
3  SAVE
4
5  INTERFACE
6
7    SUBROUTINE comp_rhodz(flag,ps,rhodz)
8      USE prec, ONLY : rstd
9      LOGICAL, INTENT(IN) :: flag
10      REAL(rstd),INTENT(IN)  :: ps(1)
11      REAL(rstd),INTENT(OUT) :: rhodz(1,1)
12    END SUBROUTINE comp_rhodz
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
20  END INTERFACE
21
22  PROCEDURE(comp_rhodz), POINTER :: compute_rhodz
23  PROCEDURE(comp_pression), POINTER :: compute_pression, compute_pression_mid
24
25END MODULE compute_diagnostics_mod
Note: See TracBrowser for help on using the repository browser.