forrtl: severe (174): SIGSEGV, segmentation fault occurred

[JIA]

Hi,

I got the error when I run WRF-ROMS using COAWST.

I activated USE_DEBUG of coast.bash file.

I tried testcase, it worked so well.


===============================================================================
forrtl: severe (174): SIGSEGV, segmentation fault occurred
Image PC Routine Line Source
coawstG 0000000002F1E9B9 Unknown Unknown Unknown
coawstG 0000000002F1D330 Unknown Unknown Unknown
coawstG 0000000002EC4012 Unknown Unknown Unknown
coawstG 0000000002E57403 Unknown Unknown Unknown
coawstG 0000000002E603BB Unknown Unknown Unknown
libpthread.so.0 0000003DB3A0F710 Unknown Unknown Unknown
coawstG 0000000002F34B55 Unknown Unknown Unknown
coawstG 0000000002EC0CC4 Unknown Unknown Unknown
coawstG 0000000000420F1F cdecode_line_..0 325 read_coawst_par.f90
coawstG 000000000041F6DD read_coawst_par_ 81 read_coawst_par.f90
coawstG 0000000000414070 MAIN__ 62 master.f90
coawstG 0000000000411BF6 Unknown Unknown Unknown
libc.so.6 0000003DB361ED1D Unknown Unknown Unknown
coawstG 0000000000411AE9 Unknown Unknown Unknown

================================================================================

How can I fix it?

Thanks.

[JIA]

Line 325 of read_coawst_par.f90 in the Build directory is:


=======================================================================
! !
! This routine reads in physical model input parameters. !
! !
!=======================================================================
decode=.FALSE.
DO i=1,Lval
IF (Vstring(i:i).eq.CHAR(32)) THEN
IF (Vstring(i+1:i+1).ne.CHAR(32)) decode=.TRUE.
Iblank=i
ELSE
ie=i
ENDIF
IF (decode.or.(i.eq.Lval)) THEN
Nval=Nval+1
!
! Processing numeric values. Check starting character to determine
! if numeric or character values. It is possible to have both when
! processing repetitions via the multiplication symbol.
!
Schar=ICHAR(Vstring(is:is))
IF (((48.le.Schar).and.(Schar.le.57)).or. &
& (Schar.eq.43).or.(Schar.eq.45)) THEN
IF ((Nmul.gt.0).and. &
& (is.lt.Imul(ic)).and.(Imul(ic).lt.ie)) THEN
READ (Vstring(is:Imul(ic)-1),*) copies
Schar=ICHAR(Vstring(Imul(ic)+1:Imul(ic)+1))
IF ((43.le.Schar).and.(Schar.le.57)) THEN
READ (Vstring(Imul(ic)+1:ie),*) Rval(Nval)
DO j=1,copies-1
Rval(Nval+j)=Rval(Nval)
END DO
ELSE
string=Vstring(Imul(ic)+1:ie)
LenS=LEN_TRIM(string)
Cval(Nval)=string(1:LenS)
DO j=1,copies-1
Cval(Nval+j)=Cval(Nval)
END DO
END IF
Nval=Nval+copies-1
ic=ic+1
ELSE
string=Vstring(is:ie)
LenS=LEN_TRIM(string)
READ (string(1:LenS),*) Rval(Nval)
END IF
ELSE
!
! Processing character values (logicals and strings).
!
IF ((Nmul.gt.0).and. &
& (is.lt.Imul(ic)).and.(Imul(ic).lt.ie)) THEN
READ (Vstring(is:Imul(ic)-1),*) copies
Cval(Nval)=Vstring(Imul(ic)+1:ie)
DO j=1,copies-1
Cval(Nval+j)=Cval(Nval)
END DO
Nval=Nval+copies-1
ic=ic+1
ELSE
string=Vstring(is:ie)
325--> Cval(Nval)=TRIM(ADJUSTL(string))
END IF
IsString=.TRUE.
END IF
is=Iblank+1
ie=Lval
decode=.FALSE.
END IF
END DO
END IF
END IF
status=Nval
END IF
cdecode_line=status
RETURN
END FUNCTION cdecode_line
FUNCTION cload_i (Ninp, Vinp, Nout, Vout)
!
!=======================================================================

[jcwarner]

since these are issues with coawst and not rutgers roms, lets move this discussion.
can you send to me the read_coawst_par.f90
thanks
john
jcwarner@usgs.gov

[JIA]

since these are issues with coawst and not rutgers roms, lets move this discussion.
can you send to me the read_coawst_par.f90
thanks
john
jcwarner@usgs.gov

I send an email with the file.

thanks.