From fb1133e7d2b3edeadda55941bcdbbab238f84f80 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Tue, 27 Aug 2019 11:14:36 -0600 Subject: [PATCH] Replaces CICE to MOM in error messages --- config_src/nuopc_driver/mom_cap.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/config_src/nuopc_driver/mom_cap.F90 b/config_src/nuopc_driver/mom_cap.F90 index 1d0b41b550..360e8f833d 100644 --- a/config_src/nuopc_driver/mom_cap.F90 +++ b/config_src/nuopc_driver/mom_cap.F90 @@ -1391,12 +1391,12 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc) diff_lat = abs(latMesh(n) - lat(n)) if (diff_lat > 1.e-2) then write(6,101)n,latMesh(n),lat(n), diff_lat -101 format('ERROR: CICE n, latMesh(n), lat(n), diff_lat = ',i8,2(f21.13,3x),d21.5) +101 format('ERROR: MOM n, latMesh(n), lat(n), diff_lat = ',i8,2(f21.13,3x),d21.5) !call shr_sys_abort() end if if (abs(maskMesh(n) - mask(n)) > 0) then write(6,102)n,maskMesh(n),mask(n) -102 format('ERROR: CICE n, maskMesh(n), mask(n) = ',3(i8,2x)) +102 format('ERROR: MOM n, maskMesh(n), mask(n) = ',3(i8,2x)) !call shr_sys_abort() end if end do