Update metric.F90