Changeset 12844 for NEMO/branches/2020/r12581_ticket2418/tests/CANAL/MY_SRC/usrdef_zgr.F90

Timestamp:

2020-05-01T12:57:50+02:00 (4 years ago)

Author:

smasson

Message:

r12581_ticket2418: merge with trunk@12843, see #2418

File:

• NEMO/branches/2020/r12581_ticket2418/tests/CANAL/MY_SRC/usrdef_zgr.F90 (modified) (1 diff)

NEMO/branches/2020/r12581_ticket2418/tests/CANAL/MY_SRC/usrdef_zgr.F90

@@ -204 +204 @@
       CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. )           ! set surrounding land to zero (here jperio=0 ==>> closed)
       !
-      k_bot(:,:) = INT( z2d(:,:) )           ! =jpkm1 over the ocean point, =0 elsewhere
+      k_bot(:,:) = NINT( z2d(:,:) )          ! =jpkm1 over the ocean point, =0 elsewhere
       !
       k_top(:,:) = MIN( 1 , k_bot(:,:) )     ! = 1    over the ocean point, =0 elsewhere