Changeset 9919 for NEMO/trunk/src/OCE/stpctl.F90

Timestamp:

2018-07-10T17:07:05+02:00 (6 years ago)

Author:

smasson

Message:

trunk: avoid potential rounding errors (use nint instead of int)

File:

• NEMO/trunk/src/OCE/stpctl.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/stpctl.F90

@@ -114 +114 @@
          CALL mpp_max_multiple( zmax(:), 5 )    ! max over the global domain
          !
-         nstop = INT( zmax(5) )                 ! nstop indicator sheared among all local domains
+         nstop = NINT( zmax(5) )                 ! nstop indicator sheared among all local domains
       ENDIF
       !