Ignore:
Timestamp:
2020-05-05T08:18:05+02:00 (9 months ago)
Author:
smasson
Message:

Extra_Halo: using input files without halos, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/BENCH/MY_SRC/usrdef_zgr.F90

    r12377 r12866  
    191191      ! 
    192192      z2d(:,:) = REAL( jpkm1 , wp )          ! flat bottom 
     193      IF( .NOT. (nbondj == 1 .OR. nbondj == 0 .OR. l_Jperio) )   & 
     194         z2d(mi0(  1 ):mi1(jpiglo),mj0(Njs0):mj1( Njs0 )) = 0._wp   ! line   number Njs0 at 0 
     195      IF( .NOT. (nbondi == 1 .OR. nbondi == 0 .OR. l_Iperio) )   &  
     196         z2d(mi0(Nis0):mi1( Nis0 ),mj0(  1 ):mj1(jpjglo)) = 0._wp   ! column number Nis0 at 0 
    193197      ! 
    194198      IF( jperio == 3 .OR. jperio ==4 ) THEN   ! add a small island in the upper corners to avoid model instabilities... 
Note: See TracChangeset for help on using the changeset viewer.