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