- Timestamp:
- 2014-02-28T12:44:02+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.