link ../../dyn3d/gr_u_scal.F