source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/swtt1.intfb.h @ 5313

Last change on this file since 5313 was 3331, checked in by acozic, 6 years ago

Add modification for isotopes

  • Property svn:executable set to *
File size: 465 bytes
Line 
1INTERFACE
2SUBROUTINE SWTT1 ( KIDIA,KFDIA,KLON,KNU,KABS,KIND, PU, PTR )
3USE PARKIND1 ,ONLY : JPIM ,JPRB
4INTEGER(KIND=JPIM),INTENT(IN) :: KLON
5INTEGER(KIND=JPIM),INTENT(IN) :: KABS
6INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
7INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
8INTEGER(KIND=JPIM),INTENT(IN) :: KNU
9INTEGER(KIND=JPIM),INTENT(IN) :: KIND(KABS)
10REAL(KIND=JPRB) ,INTENT(IN) :: PU(KLON,KABS)
11REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON,KABS)
12END SUBROUTINE SWTT1
13END INTERFACE
Note: See TracBrowser for help on using the repository browser.