Changeset 12740 for NEMO/trunk/src/OCE/USR/usrdef_zgr.F90

Timestamp:

2020-04-12T11:03:06+02:00 (4 years ago)

Author:

smasson

Message:

trunk: update/debug of tests and C1D, see #2442

File:

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

NEMO/trunk/src/OCE/USR/usrdef_zgr.F90

@@ -202 +202 @@
       CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. )           ! set surrounding land to zero (here jperio=0 ==>> closed)
       !
-      k_bot(:,:) = NINT( 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