istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

fix some gfortran warnings

Browse Source
This commit is contained in:
Michele Guerini Rocco 2024-01-24 15:10:40 +01:00
parent 26976a31dd
commit 686f63b01a
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -67,7 +67,7 @@ GIT_DIRTY ?= $(shell test -n "$$(git status --porcelain)" && echo "-dirty")
# Note: can't use ?= for FC because GNU Make defaults to f77 # Note: can't use ?= for FC because GNU Make defaults to f77
FC = gfortran FC = gfortran
LD = gfortran LD = gfortran
FFLAGS += -J$(OBJDIR) -I$(INCDIR) -ffree-line-length-none -fPIC FFLAGS += -J$(OBJDIR) -I$(INCDIR) -ffree-line-length-none -fPIC -frecursive
LDFLAGS += -L$(LIBDIR) LDFLAGS += -L$(LIBDIR)
CPPFLAGS += -DREVISION=\"$(GIT_REV)$(GIT_DIRTY)\" -DPREFIX=\"$(PREFIX)\" CPPFLAGS += -DREVISION=\"$(GIT_REV)$(GIT_DIRTY)\" -DPREFIX=\"$(PREFIX)\"

3
src/equilibrium.f90
View File

@ -911,7 +911,7 @@ contains
! Note: all output arguments are optional. ! Note: all output arguments are optional.
use gray_params, only : iequil use gray_params, only : iequil
use reflections, only : inside use reflections, only : inside
use const_and_precisions, only : one, pi use const_and_precisions, only : pi
implicit none implicit none
@ -1217,7 +1217,6 @@ contains
! (R, z) in cylindrical coordinates ! (R, z) in cylindrical coordinates
! !
! Note: all output arguments are optional. ! Note: all output arguments are optional.
use gray_params, only : iequil
implicit none implicit none

2
src/magsurf_data.f90
View File

@ -458,7 +458,7 @@ contains
! local variables ! local variables
integer :: npoints,np,info,ic,ier,iopt,m integer :: npoints,np,info,ic,ier,iopt,m
real(wp_) :: ra,rb,za,zb,th,zc,val real(wp_) :: ra,rb,za,zb,th,zc
real(wp_), dimension(mest) :: zeroc real(wp_), dimension(mest) :: zeroc
real(wp_), dimension(psi_spline%nknots_x) :: czc real(wp_), dimension(psi_spline%nknots_x) :: czc