type mismatch in rad; nad errors in stable version
Posted: Thu Jun 06, 2013 11:15 am
Hi Rich,
I'm getting some errors when making the non-adiabatic code (stable version 1.1.1). You've probably already fixed these in the nad code because they are not present in the 'default' version of gyre. However, the type mismatch in the rad code is present in both the stable and the default versions of the code. The error messages are listed below:
for the nad code ...
*************************************************************************************************************
gyre_nad_shooter.f90:329.23:
class(ad_shooter_t), intent(in) :: this
1
Error: Derived type 'ad_shooter_t' at (1) is being used before it is defined
gyre_nad_shooter.f90:341.42:
n_cell(k) = SIZE(ivp_abscissa(this%np%ivp_solver_type, x_sh(k), x_sh(k+1
1
Error: Symbol 'this' at (1) has no IMPLICIT type
gyre_nad_shooter.f90:349.46:
x(i:i+n_cell(k)-1) = ivp_abscissa(this%np%ivp_solver_type, x_sh(k), x_sh
1
Error: Symbol 'this' at (1) has no IMPLICIT type
gyre_nad_shooter.f90:368.19:
function abscissa (this, x_sh) result (x)
1
gyre_nad_shooter.f90:327.2:
function abscissa (this, x_sh) result (x)
2
Error: Procedure 'abscissa' at (1) is already defined at (2)
gyre_nad_shooter.f90:327.25:
function abscissa (this, x_sh) result (x)
1
Error: Symbol 'this' at (1) has no IMPLICIT type
gyre_nad_shooter.f90:327.31:
function abscissa (this, x_sh) result (x)
1
Error: Array 'x_sh' at (1) cannot have a deferred shape
make: *** [gyre_nad_shooter.mod] Error 1
******************************************************************
make info for the rad code ...
******************************************************************
FC gyre_rad_bvp.f90
gyre_rad_bvp.f90:365.26:
call md%init(this%bc, this%tc, this%op, omega, x, y_6)
1
Error: Type mismatch in argument 'op' at (1); passed CLASS(therm_coeffs_t) to TYPE(oscpar_t)
make: *** [gyre_rad_bvp.mod] Error 1
******************************************************************
I'll also note that `make clean` in the rad directory also cleans out the ad directory.
Chris
I'm getting some errors when making the non-adiabatic code (stable version 1.1.1). You've probably already fixed these in the nad code because they are not present in the 'default' version of gyre. However, the type mismatch in the rad code is present in both the stable and the default versions of the code. The error messages are listed below:
for the nad code ...
*************************************************************************************************************
gyre_nad_shooter.f90:329.23:
class(ad_shooter_t), intent(in) :: this
1
Error: Derived type 'ad_shooter_t' at (1) is being used before it is defined
gyre_nad_shooter.f90:341.42:
n_cell(k) = SIZE(ivp_abscissa(this%np%ivp_solver_type, x_sh(k), x_sh(k+1
1
Error: Symbol 'this' at (1) has no IMPLICIT type
gyre_nad_shooter.f90:349.46:
x(i:i+n_cell(k)-1) = ivp_abscissa(this%np%ivp_solver_type, x_sh(k), x_sh
1
Error: Symbol 'this' at (1) has no IMPLICIT type
gyre_nad_shooter.f90:368.19:
function abscissa (this, x_sh) result (x)
1
gyre_nad_shooter.f90:327.2:
function abscissa (this, x_sh) result (x)
2
Error: Procedure 'abscissa' at (1) is already defined at (2)
gyre_nad_shooter.f90:327.25:
function abscissa (this, x_sh) result (x)
1
Error: Symbol 'this' at (1) has no IMPLICIT type
gyre_nad_shooter.f90:327.31:
function abscissa (this, x_sh) result (x)
1
Error: Array 'x_sh' at (1) cannot have a deferred shape
make: *** [gyre_nad_shooter.mod] Error 1
******************************************************************
make info for the rad code ...
******************************************************************
FC gyre_rad_bvp.f90
gyre_rad_bvp.f90:365.26:
call md%init(this%bc, this%tc, this%op, omega, x, y_6)
1
Error: Type mismatch in argument 'op' at (1); passed CLASS(therm_coeffs_t) to TYPE(oscpar_t)
make: *** [gyre_rad_bvp.mod] Error 1
******************************************************************
I'll also note that `make clean` in the rad directory also cleans out the ad directory.
Chris