Opened 10 months ago

Closed 3 months ago

Last modified 8 weeks ago

#2270 closed Defect (fixed)

segfault in sbcdcy.F90

Reported by: andmirek Owned by: systeam
Priority: low Milestone:
Component: SBC Version: trunk
Severity: minor Keywords:
Cc:

Description

Context

NEMO (Met Office GO8 configuration) fails with segfault in sbcdcy.F90 when compiled with pgi (18) compiler.

Analysis

The segfault is in the line 241:

IF( PRESENT(l_mask) .AND. l_mask ) THEN

because when l_mask isn't passed as an argument of a subroutine (optional argument) this variable doesn't exist.

Recommendation

split a single IF statement into 2:
IF( PRESENT(l_mask) ) THEN

IF( l_mask ) …

the same problem is also in NEMO 4.

Commit History (0)

(No commits)

Change History (3)

comment:1 Changed 3 months ago by andmirek

  • Resolution set to fixed
  • Status changed from new to closed

Make fix part of the ticket #1840, where optional arguments are fixed in iom.F90.

comment:2 Changed 3 months ago by andmirek

In 11787:

Ticket #1840, add fix related to optional argument from ticket 2270

comment:3 Changed 8 weeks ago by andmirek

Reopening this ticket as the #1840 is not going to be merged into the trunk.

Note: See TracTickets for help on using tickets.