New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4520 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90 – NEMO

Ignore:
Timestamp:
2014-02-28T12:44:02+01:00 (10 years ago)
Author:
acc
Message:

#1250 Fix array bound warning in prt_ctl_init when jpnij /= jpni*jpnj

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

    r3680 r4520  
    217217         cl_run = 'MULTI processor run' 
    218218         ! 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(:) 
    232232      ELSE 
    233233         sind = 1 
Note: See TracChangeset for help on using the changeset viewer.