New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11076 – NEMO

Changeset 11076


Ignore:
Timestamp:
2019-06-05T16:11:54+02:00 (5 years ago)
Author:
jchanut
Message:

Correct bathymetry at U-points, #2289

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0/tests/OVERFLOW/MY_SRC/usrdef_zgr.F90

    r10425 r11076  
    9696      !                                ! ==>>>  set by hand non-zero value on first/last columns & rows  
    9797      DO ji = mi0(1), mi1(1)              ! first row of global domain only 
    98          zhu(ji,2) = zht(1,2) 
    99       END DO 
    100        DO ji = mi0(jpi), mi1(jpi)         ! last  row of global domain only 
    101          zhu(ji,2) = zht(jpi,2) 
     98         zhu(ji,2) = zht(ji,2) 
     99      END DO 
     100       DO ji = mi0(jpiglo), mi1(jpiglo)   ! last  row of global domain only 
     101         zhu(ji,2) = zht(ji,2) 
    102102      END DO 
    103103      zhu(:,1) = zhu(:,2) 
Note: See TracChangeset for help on using the changeset viewer.