Changeset 9919 for NEMO/trunk/src/OCE/TRA

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/TRA/trabbl.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/TRA/trabbl.F90

@@ -526 +526 @@
       zmbku(:,:) = REAL( mbku_d(:,:), wp )   ;     zmbkv(:,:) = REAL( mbkv_d(:,:), wp )  
       CALL lbc_lnk_multi( zmbku,'U',1., zmbkv,'V',1.) 
-      mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ;  mbkv_d(:,:) = MAX( INT( zmbkv(:,:) ), 1 )
+      mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ;  mbkv_d(:,:) = MAX( NINT( zmbkv(:,:) ), 1 )
       !
       !                             !* sign of grad(H) at u- and v-points; zero if grad(H) = 0