link ../../dyn3d_common/write_field.F90