!copyright (C) 2001 MSC-RPN COMM %%%RPNPHY%%% * nombre de niveaux dans la glace marine integer nl parameter (nl = 3)