Changeset 4520 for branches/2013
- Timestamp:
- 2014-02-28T12:44:02+01:00 (10 years ago)
- Location:
- branches/2013/dev_MERGE_2013/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90
r3680 r4520 304 304 cl_run = 'MULTI processor run' 305 305 ! use indices for each area computed by mpp_init subroutine 306 nlditl( :) = nldit(:)307 nleitl( :) = nleit(:)308 nldjtl( :) = nldjt(:)309 nlejtl( :) = nlejt(:)306 nlditl(1:jpnij) = nldit(:) 307 nleitl(1:jpnij) = nleit(:) 308 nldjtl(1:jpnij) = nldjt(:) 309 nlejtl(1:jpnij) = nlejt(:) 310 310 ! 311 nimpptl( :) = nimppt(:)312 njmpptl( :) = njmppt(:)311 nimpptl(1:jpnij) = nimppt(:) 312 njmpptl(1:jpnij) = njmppt(:) 313 313 ! 314 nlcitl( :) = nlcit(:)315 nlcjtl( :) = nlcjt(:)314 nlcitl(1:jpnij) = nlcit(:) 315 nlcjtl(1:jpnij) = nlcjt(:) 316 316 ! 317 ibonitl( :) = ibonit(:)318 ibonjtl( :) = ibonjt(:)317 ibonitl(1:jpnij) = ibonit(:) 318 ibonjtl(1:jpnij) = ibonjt(:) 319 319 ELSE 320 320 sind = 1 -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90
r3680 r4520 217 217 cl_run = 'MULTI processor run' 218 218 ! use indices for each area computed by mpp_init subroutine 219 nlditl( :) = nldit(:)220 nleitl( :) = nleit(:)221 nldjtl( :) = nldjt(:)222 nlejtl( :) = nlejt(:)223 ! 224 nimpptl( :) = nimppt(:)225 njmpptl( :) = njmppt(:)226 ! 227 nlcitl( :) = nlcit(:)228 nlcjtl( :) = nlcjt(:)229 ! 230 ibonitl( :) = ibonit(:)231 ibonjtl( :) = ibonjt(:)219 nlditl(1:jpnij) = nldit(:) 220 nleitl(1:jpnij) = nleit(:) 221 nldjtl(1:jpnij) = nldjt(:) 222 nlejtl(1:jpnij) = nlejt(:) 223 ! 224 nimpptl(1:jpnij) = nimppt(:) 225 njmpptl(1:jpnij) = njmppt(:) 226 ! 227 nlcitl(1:jpnij) = nlcit(:) 228 nlcjtl(1:jpnij) = nlcjt(:) 229 ! 230 ibonitl(1:jpnij) = ibonit(:) 231 ibonjtl(1:jpnij) = ibonjt(:) 232 232 ELSE 233 233 sind = 1
Note: See TracChangeset
for help on using the changeset viewer.