source: LMDZ6/trunk/libf/phylmdiso/rrtm/seapre.intfb.h @ 3927

Last change on this file since 3927 was 3927, checked in by Laurent Fairhead, 3 years ago

Initial import of the physics wih isotopes from Camille Risi
CR

File size: 278 bytes
Line 
1INTERFACE
2SUBROUTINE SEAPRE(PARA,KPARA,PSTPRE,KLEV)
3USE PARKIND1 ,ONLY : JPIM ,JPRB
4INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
5REAL(KIND=JPRB) ,INTENT(IN) :: PARA
6INTEGER(KIND=JPIM),INTENT(OUT) :: KPARA
7REAL(KIND=JPRB) ,INTENT(IN) :: PSTPRE(KLEV)
8END SUBROUTINE SEAPRE
9END INTERFACE
Note: See TracBrowser for help on using the repository browser.