source:
LMDZ6/trunk/libf/phylmdiso/rrtm/suecrad15.intfb.h
@
3927
Last change on this file since 3927 was 3927, checked in by , 3 years ago | |
---|---|
File size: 248 bytes |
Line | |
---|---|
1 | INTERFACE |
2 | SUBROUTINE SUECRAD15 (KULOUT, KLEV, PETAH ) |
3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
4 | INTEGER(KIND=JPIM),INTENT(IN) :: KLEV |
5 | INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT |
6 | REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1) |
7 | END SUBROUTINE SUECRAD15 |
8 | END INTERFACE |
Note: See TracBrowser
for help on using the repository browser.