- Timestamp:
- 2018-04-27T19:39:31+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90
r4245 r9523 12 12 USE par_kind, ONLY : wp ! Precision variables 13 13 USE par_oce , ONLY : jpi, jpj ! Ocean parameters 14 USE dom_oce , ONLY : mig, mjg, nldi, nlei, nldj, nlej, n area ! Ocean space and time domain variables14 USE dom_oce , ONLY : mig, mjg, nldi, nlei, nldj, nlej, nlci, nlcj, narea ! Ocean space and time domain variables 15 15 #if defined key_mpp_mpi 16 16 USE lib_mpp, ONLY : mpi_comm_opa ! MPP library … … 64 64 imppmap(:,:) = 0 65 65 66 ! Setup local grid points67 imppmap(mig( nldi):mig(nlei),mjg(nldj):mjg(nlej)) = narea66 ! ! Setup local grid points 67 imppmap(mig(1):mig(nlci),mjg(1):mjg(nlcj)) = narea 68 68 69 69 ! Get global data
Note: See TracChangeset
for help on using the changeset viewer.