Opened 10 years ago

Closed 10 years ago

#690 closed Bug (fixed)

segmentation fault in prtctl.F90( nemo_v3_2_1)

Reported by: molines Owned by: nemo
Priority: low Milestone:
Component: OCE Version: release-3.2
Severity: Keywords:


Under certains circumstances, I found a segmentation fault in prtctl.F90 due to a mismatch in array size :

!{ JMM if 1:kdir  not used segmentation fault when tab3d is :,:,1) eg zqla 
      IF( PRESENT(tab3d_1) )  ztab3d_1(:,:,1:kdir)= tab3d_1(:,:,:)
      IF( PRESENT(tab3d_2) )  ztab3d_2(:,:,1:kdir)= tab3d_2(:,:,:)

ztab3d has jpk as 3rd dimension and tab3d (argument of the routine) may have smaller 3rd dimension.

Commit History (1)


Fix prtctl, see ticket #690

Attachments (1)

prtctl.F90 (23.4 KB) - added by molines 10 years ago.

Download all attachments as: .zip

Change History (2)

Changed 10 years ago by molines

comment:1 Changed 10 years ago by rblod

  • Resolution set to fixed
  • Status changed from new to closed
  • Version changed from nemo_v3_2 to nemo_v3_2_1
Note: See TracTickets for help on using tickets.