Ignore:
Timestamp:
2019-06-05T16:13:02+02:00 (18 months ago)
Author:
jchanut
Message:

Correct bathymetry at U-points, #2289

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/tests/OVERFLOW/MY_SRC/usrdef_zgr.F90

    r10425 r11077  
    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.