SUBROUTINE MDSWRITEFIELDYZ(
call MDSWRITEFIELDYZ(
call MDSWRITEFIELDYZ( fname, ctrlprec,.FALSE., 'RL',