LMDZ
suecrad.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE SUECRAD (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 INTEGER(KIND=JPIM), PARAMETER :: JP_MIN_HALO=5
8 INTEGER(KIND=JPIM), PARAMETER :: JPIOMASTER=1
9 END SUBROUTINE SUECRAD
10 END INTERFACE
PETAH
INTERFACE SUBROUTINE SUAERV PETAH
Definition: suaerv.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
KLEV
INTERFACE SUBROUTINE LW KLEV
Definition: lw.intfb.h:3
ONLY
INTERFACE SUBROUTINE ONLY
Definition: suecrad.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
INTEGER
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
SUECRAD
INTERFACE SUBROUTINE SUECRAD(KULOUT, KLEV, PETAH) USE PARKIND1
PARAMETER
!$Id!Valid and equivalent for either free source form or fixed source form INTEGER i1_fin INTEGER i2_fin!cc PARAMETER(i1_deb=21, i1_fin=40)!cc PARAMETER(i2_deb