return a more accurate error message in MOM_stochasics

OlgaSergienko · Sep 28, 2021 · a9a957e · a9a957e
1 parent 56bb41e
commit a9a957e
Showing 1 changed file with 1 addition and 3 deletions.
diff --git 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