FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | report_unit |
subroutine checklogic_theta_grid_eik(report_unit)
use geometry, only: geq=>gen_eq, eeq=>efit_eq, peq=>ppl_eq
use geometry, only: leq=>local_eq, deq=>dfit_eq, ceq=>chs_eq
integer, intent (in) :: report_unit
if(geq .and. deq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing gen_eq = .true. AND dfit_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(geq .and. eeq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing gen_eq = .true. AND efit_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(geq .and. ceq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing gen_eq = .true. AND chs_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(geq .and. peq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing gen_eq = .true. AND ppl_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(geq .and. leq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing gen_eq = .true. AND local_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(eeq .and. deq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing efit_eq = .true. AND dfit_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(eeq .and. leq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing efit_eq = .true. AND local_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(eeq .and. ceq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing efit_eq = .true. AND chs_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(eeq .and. peq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing efit_eq = .true. AND ppl_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(deq .and. leq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing dfit_eq = .true. AND local_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(deq .and. ceq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing dfit_eq = .true. AND chs_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(deq .and. peq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing dfit_eq = .true. AND ppl_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(ceq .and. peq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing chs_eq = .true. AND ppl_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(ceq .and. leq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing chs_eq = .true. AND local_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
if(peq .and. leq) then
write (report_unit, *)
write (report_unit, fmt="('################# WARNING #######################')")
write(report_unit,fmt="('Choosing ppl_eq = .true. AND local_eq = .true. is not permitted.')")
write (report_unit, fmt="('################# WARNING #######################')")
write (report_unit, *)
endif
end subroutine checklogic_theta_grid_eik