Changeset 15122 for NEMO/branches/UKMO/NEMO_r4.2RC_GO8_package/src/OCE/ICB/icbclv.F90

Timestamp:

2021-07-15T11:11:28+02:00 (3 years ago)

Author:

ayoung

Message:

Merging bug fixes up to 15096. Ticket #2648.

File:

• NEMO/branches/UKMO/NEMO_r4.2RC_GO8_package/src/OCE/ICB/icbclv.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_r4.2RC_GO8_package/src/OCE/ICB/icbclv.F90

@@ -133 +133 @@
                   newpt%lon = glamt(ji,jj)         ! at t-point (centre of the cell)
                   newpt%lat = gphit(ji,jj)
-                  newpt%xi  = REAL( mig(ji), wp )
-                  newpt%yj  = REAL( mjg(jj), wp )
+                  newpt%xi  = REAL( mig(ji), wp ) - ( nn_hls - 1 )
+                  newpt%yj  = REAL( mjg(jj), wp ) - ( nn_hls - 1 )
                   !
                   newpt%uvel = 0._wp               ! initially at rest