From a9a957e3cf6180c89bdb73ef9e141b160f3b8890 Mon Sep 17 00:00:00 2001 From: pjpegion Date: Tue, 28 Sep 2021 18:47:57 +0000 Subject: [PATCH] return a more accurate error message in MOM_stochasics --- .../external/OCEAN_stochastic_phyiscs/MOM_stochastics.F90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/config_src/external/OCEAN_stochastic_phyiscs/MOM_stochastics.F90 b/config_src/external/OCEAN_stochastic_phyiscs/MOM_stochastics.F90 index 427b3c754b..e6b0c80280 100644 --- a/config_src/external/OCEAN_stochastic_phyiscs/MOM_stochastics.F90 +++ b/config_src/external/OCEAN_stochastic_phyiscs/MOM_stochastics.F90 @@ -101,9 +101,7 @@ subroutine stochastics_init(dt, grid, GV, CS, param_file, diag, Time) call init_stochastic_physics_ocn(dt,grid%geoLonT,grid%geoLatT,nx,ny,GV%ke, & CS%pert_epbl,CS%do_sppt,master,mom_comm,iret) if (iret/=0) then - write(6,*) 'call to init_stochastic_physics_ocn failed' - call MOM_error(FATAL, "stochastic physics in enambled in MOM6 but "// & - "not activated in stochastic_physics namelist ") + call MOM_error(FATAL, "call to init_stochastic_physics_ocn failed") return endif