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.
#690 (segmentation fault in prtctl.F90( nemo_v3_2_1)) – NEMO

Opened 14 years ago

Closed 14 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: v3.2
Severity: Keywords:
Cc:

Description

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)

ChangesetAuthorTimeChangeLog
2029rblod2010-07-29T13:59:39+02:00

Fix prtctl, see ticket #690

Attachments (1)

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

Download all attachments as: .zip

Change History (2)

Changed 14 years ago by molines

comment:1 Changed 14 years ago by rblod

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