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 13065 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_ADV1D – NEMO

Ignore:
Timestamp:
2020-06-08T18:11:57+02:00 (4 years ago)
Author:
smasson
Message:

Extra_Halo: toward AGRIF compatibility, see #2366

Location:
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_ADV1D/MY_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_ADV1D/MY_SRC/usrdef_hgr.F90

    r12960 r13065  
    7575 
    7676      !                          ========== 
    77       zlam0 = -REAL(Ni0glo-1)/2, wp) * 1.e-3 * rn_dx 
    78       zphi0 = -REAL(Nj0glo-1)/2, wp) * 1.e-3 * rn_dy 
     77      zlam0 = -REAL( (Ni0glo-2)/2, wp) * 1.e-3 * rn_dx 
     78      zphi0 = -REAL( (Nj0glo-2)/2, wp) * 1.e-3 * rn_dy 
    7979 
    8080      DO_2D_11_11 

  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90

    r12939 r13065  
    9090         WRITE(numout,*) '         LX [km]: ', zlx 
    9191         WRITE(numout,*) '         LY [km]: ', zly 
    92          WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
    93          WRITE(numout,*) '                                               jpjglo = ', kpj 
     92         WRITE(numout,*) '         resulting global domain size :        Ni0glo = ', kpi 
     93         WRITE(numout,*) '                                               Nj0glo = ', kpj 
    9494         WRITE(numout,*) '                                               jpkglo = ', kpk 
    9595         WRITE(numout,*) '         Coriolis:', ln_corio 
Note: See TracChangeset for help on using the changeset viewer.