Changeset 13413 for NEMO/trunk/src
- Timestamp:
- 2020-08-19T10:57:01+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/cpl_oasis3.F90
r13286 r13413 186 186 187 187 paral(1) = 2 ! box partitioning 188 paral(2) = jpiglo * (Njs0-1+njmpp-1) + (Nis0-1+nimpp-1) ! NEMO lower left corner global offset188 paral(2) = Ni0glo * mjg0(nn_hls) + mig0(nn_hls) ! NEMO lower left corner global offset 189 189 paral(3) = Ni_0 ! local extent in i 190 190 paral(4) = Nj_0 ! local extent in j 191 paral(5) = jpiglo ! global extent in x192 191 paral(5) = Ni0glo ! global extent in x 192 193 193 IF( sn_cfctl%l_oasout ) THEN 194 194 WRITE(numout,*) ' multiexchg: paral (1:5)', paral … … 198 198 ENDIF 199 199 200 CALL oasis_def_partition ( id_part, paral, nerror, jpiglo*jpjglo )200 CALL oasis_def_partition ( id_part, paral, nerror, Ni0glo*Nj0glo ) 201 201 ! 202 202 ! ... Announce send variables.
Note: See TracChangeset
for help on using the changeset viewer.