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

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

devel : compute_rhodz for unstructured mesh
File size: 386 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  END INTERFACE
15
16  PROCEDURE(comp_rhodz), POINTER :: compute_rhodz
17
18END MODULE compute_diagnostics_mod
Note: See TracBrowser for help on using the repository browser.