13 integer_m, 
PARAMETER :: 
jpradcw=2
 
   14 integer_m, 
PARAMETER :: 
jpradce=2
 
   16 integer_m, 
PARAMETER :: 
jpradfw=1
 
   17 integer_m, 
PARAMETER :: 
jpradfe=1
 
integer(kind=jpim), parameter jpradfw
 
integer(kind=jpim), parameter jpradct
 
integer(kind=jpim), parameter jpradce
 
integer(kind=jpim), parameter jpradcw
 
integer(kind=jpim), parameter jpradfe