From 2a09234021653ad9c4eaf21d64330d80ba6f7629 Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Wed, 15 Jul 2015 15:23:49 -0400 Subject: [PATCH] Fix internal formatting error from set_grid_metrics() - In #198, @nicjhan reported problems running OM4_025 with intel compiler in debug mode. This fixes the "output conversion error, unit -5, file Internal Formatted Write: error mentioned in that issue for MOM. - No answer changes. --- src/initialization/MOM_grid_initialize.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/initialization/MOM_grid_initialize.F90 b/src/initialization/MOM_grid_initialize.F90 index 74bb042269..e60784901d 100644 --- a/src/initialization/MOM_grid_initialize.F90 +++ b/src/initialization/MOM_grid_initialize.F90 @@ -494,8 +494,8 @@ subroutine set_grid_derived_metrics(G, param_file) G%IareaBu(I,J) = G%IdxBu(I,J) * G%IdyBu(I,J) enddo ; enddo -68 FORMAT ("WARNING: PE ",I4," ",a4,"(",I4,",",I4,") = ",ES10.4, & - " is being changed to ",ES10.4,".") +68 FORMAT ("WARNING: PE ",I4," ",a4,"(",I4,",",I4,") = ",ES12.4, & + " is being changed to ",ES12.4,".") call callTree_leave("set_grid_derived_metrics()") end subroutine set_grid_derived_metrics