Changeset 12960 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_ADV2D/MY_SRC/usrdef_hgr.F90
- Timestamp:
- 2020-05-22T09:05:34+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_ADV2D/MY_SRC/usrdef_hgr.F90
r12939 r12960 91 91 92 92 DO_2D_11_11 93 zti = REAL( mig0 (ji) - 1, wp ) ! start at i=0 in the global grid without halos94 ztj = REAL( mjg0 (jj) - 1, wp ) ! start at j=0 in the global grid without halos93 zti = REAL( mig0_oldcmp(ji) - 1, wp ) ! start at i=0 in the global grid without halos 94 ztj = REAL( mjg0_oldcmp(jj) - 1, wp ) ! start at j=0 in the global grid without halos 95 95 96 96 plamt(ji,jj) = zlam0 + rn_dx * 1.e-3 * zti
Note: See TracChangeset
for help on using the changeset viewer.