- Timestamp:
- 2017-12-13T14:57:33+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r8882 r9012 28 28 jpiglo = nbcellsx + 2 + 2*nbghostcells 29 29 jpjglo = nbcellsy + 2 + 2*nbghostcells 30 jpi = ( jpiglo-2* jpreci + (jpni-1+0) ) / jpni + 2*jpreci31 jpj = ( jpjglo-2* jprecj + (jpnj-1+0) ) / jpnj + 2*jprecj30 jpi = ( jpiglo-2*nn_hls + (jpni-1+0) ) / jpni + 2*nn_hls 31 jpj = ( jpjglo-2*nn_hls + (jpnj-1+0) ) / jpnj + 2*nn_hls 32 32 ! JC: change to allow for different vertical levels 33 33 ! jpk is already set
Note: See TracChangeset
for help on using the changeset viewer.