#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 4 years ago by andmirek
- Resolution set to fixed
- Status changed from new to closed
comment:2 Changed 4 years ago by andmirek
In 11787:
comment:3 Changed 4 years 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.
Make fix part of the ticket #1840, where optional arguments are fixed in iom.F90.