4 integer (kind=jpim),intent(in) :: kulout
 
INTERFACE subroutine jprb integer(kind=jpim)
 
!$Id we still need to use(a local version of) getin use ioipsl_getincom USE print_control_mod
 
INTERFACE subroutine suhlph(kulout) use parkind1
 
INTERFACE subroutine only