source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/suswn.intfb.h @ 3992

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

Add modification for isotopes

  • Property svn:executable set to *
File size: 181 bytes
Line 
1INTERFACE
2SUBROUTINE SUSWN (KTSW, KSW)
3USE PARKIND1 ,ONLY : JPIM ,JPRB
4INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
5INTEGER(KIND=JPIM),INTENT(IN) :: KSW
6END SUBROUTINE SUSWN
7END INTERFACE
Note: See TracBrowser for help on using the repository browser.