Changeset 14223 for NEMO/trunk/src/OCE/DOM
- Timestamp:
- 2020-12-19T11:22:45+01:00 (4 years ago)
- Location:
- NEMO/trunk/src/OCE/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/dom_oce.F90
r14143 r14223 107 107 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mig0 !: local ==> global domain, excluding halos (Ni0glo), i-index 108 108 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mjg0 !: local ==> global domain, excluding halos (Nj0glo), j-index 109 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mig0_oldcmp !: local ==> global domain, excluding halos (Ni0glo), i-index110 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mjg0_oldcmp !: local ==> global domain, excluding halos (Nj0glo), j-index111 109 INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: mi0, mi1 !: global, including halos (jpiglo) ==> local domain i-index 112 110 ! !: (mi0=1 and mi1=0 if global index not in local domain) … … 292 290 ! 293 291 ii = ii+1 294 ALLOCATE( mig(jpi), mjg(jpj), mig0(jpi), mjg0(jpj), mig0_oldcmp(jpi), mjg0_oldcmp(jpj),STAT=ierr(ii) )292 ALLOCATE( mig(jpi), mjg(jpj), mig0(jpi), mjg0(jpj), STAT=ierr(ii) ) 295 293 ! 296 294 ii = ii+1 -
NEMO/trunk/src/OCE/DOM/domain.F90
r14171 r14223 283 283 mig0(:) = mig(:) - nn_hls 284 284 mjg0(:) = mjg(:) - nn_hls 285 ! WARNING: to keep compatibility with the trunk that was including periodocity into the input data,286 ! we must define mig0 and mjg0 as bellow.287 ! Once we decide to forget trunk compatibility, we must simply define mig0 and mjg0 as:288 mig0_oldcmp(:) = mig0(:) + COUNT( (/ jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7 /) )289 mjg0_oldcmp(:) = mjg0(:) + COUNT( (/ jperio == 2 .OR. jperio == 7 /) )290 !291 285 ! ! global domain, including halos, indices ==> local domain indices 292 286 ! ! (return (m.0,m.1)=(1,0) if data domain gridpoint is to the west/south of the
Note: See TracChangeset
for help on using the changeset viewer.