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 – NEMO

Changeset 4520


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

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  
    304304         cl_run = 'MULTI processor run' 
    305305         ! 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(:)  
    310310         ! 
    311          nimpptl(:) = nimppt(:) 
    312          njmpptl(:) = njmppt(:) 
     311         nimpptl(1:jpnij) = nimppt(:) 
     312         njmpptl(1:jpnij) = njmppt(:) 
    313313         ! 
    314          nlcitl(:) = nlcit(:) 
    315          nlcjtl(:) = nlcjt(:) 
     314         nlcitl(1:jpnij) = nlcit(:) 
     315         nlcjtl(1:jpnij) = nlcjt(:) 
    316316         ! 
    317          ibonitl(:) = ibonit(:) 
    318          ibonjtl(:) = ibonjt(:) 
     317         ibonitl(1:jpnij) = ibonit(:) 
     318         ibonjtl(1:jpnij) = ibonjt(:) 
    319319      ELSE 
    320320         sind = 1 

  • 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.